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ABSTRACT 


THIS PROGRAM CONTAINS A SERIES OF TESTS THAT WILL VERIFY THAT 
THE DISK 1S CAPABLE OF PERFORMING SEEKS, THAT THE ACCESS TIMES 
ARE WITHIN TOLERANCE, THAT THE TRACK AND SECTOR ADDRESSING 
CIRCUITRY OPERATES PROPERLY, AND THAT THE DATA STORAGE AND 
RETRIEVAL CAPABILITIES ARE FUNCTIONING. 


REQUIREMENTS 


EQUIPMENT 


PDP=11 PROCESSOR 

16K MEMORY 

TELETYPE 

PROGRAM LOADING DEVICE 

KWll-L OR Kwll-P oe KW11-P 1S REQUIRED FOR THE TIMING TESTS) 
RH11 OR RH70 WITH 1 = 8 RPO4/5/6 DISK DRIVES 


PRELIMINARY PROGRAMS 


peda” DISKLESS CONTROLLER TEST 
PART 1 (MAINDEC-11-DZRJG) 
PART 2 (MAINDEC=11-DZRJH) 


RP04/5/6 FUNCTIONAL CONTROLLER TEST 
PART 1 (MAINDEC-11-DZRJ1) 
PART 2 (MAINDEC-11-DZRJJ) 


MEDIA 


THE PROGRAM REQUIRES THAT EACH DRIVE TO BE TESTEC HAS A FORMATTED 
DISK PACK. THE PACK MAY BE FORMATTED IN EITHER 16-BIT OR 18-B1! 
MODE, DEPENDING ON THE TESTING REQUIREMENTS. NOTE THAT THE PROGRAM 
WILL NOT TEST A MIXTURE OF DRIVES WITH BOTH 16 AND 18 BIT MODE 
PACKS. 


PROGRAMMABLE DRIVES (DUAL PORT ENABLED) 


THIS REV INCORPORATES A SAFEGUARD TO PREVENT INADVERTENT 

CORRUPTION OF D!5K PACKS IN PROGRAMMABLE DRIVES. 

THIS 1S A POTENTIAL HAZARD IN RUNNING THIS PROGRAM IN A 

MULTIPROCESSOR SYSTEM. FOR THE STANDARD STARTING ADDRESS OF 200 

THE PROGRAM HAS BEEN MODIFIED TO PREVENT INITIALIZING DRIVES 

FOUND TO BE PROGRAMMABLE. THIS MODIFICATION APPLIES 

ONLY TO THE FIELD ENVIRONMENT (XXDP CHAIN, STANDALONE) 

WHERE LOCATION 42 DOES NOT EQUAL LOCATION 46. FOR THE 

MANUFACTURING ENVIRONMENT (WHERE LOCATION 42 EQUALS LOCATION 46) PROGRAMMABLE 
DRIVES WILL NOT BE INHIBITED. If THE OPERATOR DESIRES TO RUN THIS PROGRAM USING 
PROGRAMMABLE DRIVES IN A FIELD ENVIRONMENT USE STARTING ADDRESS 220, WHERE 220 IS 


SEQ 0005 
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THE SAME AS 200 WITHOUT INHIBITING PROGRAMMABLE DRIVES. 
SEE SECTION 4.1 FOR A SUMMARY OF ALL STARTING ADDRESSES. 


3. LOADING PROCEDURE 


THE PROGRAM MAY BE LOADED FROM PAPER TAPE USING THE ABSOLUTE LOADER 

OR 11 MAY BE LOADED FROM THE APPROPRIATE ‘XXDP* MEDIA USING THE 
ASSOCAITED LOADER. THE PROGRAM MAY BE INCLUDED IN AN ‘XXDP* CHAIN. 

If THE PROGRAM 1S BEING RUN ON A PROCESSOR WITH 16K, THE "XXDP* 

LOADER WILL NOT BE PRESERVED. THE PROGRAM MUST BE RUN ON A SYSTEM 
WITH 20K OR MORE TO PRESERVE THE "XXDP* LOADER. THE "ABSOLUTE" LOADER 
WILL BE PRESERVED IN A 16K SYSTEM, HOWEVER. 


4. STARTING PROCEDURE 
4.1 STARTING ADDRESSES 
200 NORMAL STARTING ADDRESS (INHIBIT PROGRAMMABLE DRIVES-SEE SECTION 2.4) 
204 SELECT OPERATING PARAMETERS (INHIBIT PROGRAMMABLE DRIVES) 
210 SELECT RH11-RH70 ADDRESSES (DO NOT INHIBIT PROGRAMMABLE DRIVES) 
214 COMBINATION OF 204 AND 210 (DO NOT INHIBIT PROGRAMMAGBLE DRIVES) 
220 SAME AS 200 BUT WITH NO INHIBITIONS 
224 SAME AS 204 BUT WITH NO INHIBITIONS 


NOTE: STARTING ADDRESSES 210 AND 214 ARE AVAILABLE WHEN THE 
PROGRAM IS INITIALLY STARTED; THESE STARTING ADDRESSES ARE 
TREATED AS ADDRESSES 200 OR 204 RESPECTIVELY ON RESTARTS. 


4.2 OPERATOR ACTION 


LOAD PROGRAM INTO MEMORY (SEE SECTION 3.) 

LOAD A FORMATTED PACK INTO DRIVE(S) TO BE TESTED 

BRING DRIVE(S) TO ans STATE, WRITE ENABLED, 

AND LOCKED ON PORT 

LOAD ADDRESS 200. 

SET SWITCHES (SEE SECTION 5.) 

PRESS START 

THE PROGRAM WILL TYPEOQUT THE STATUS OF THE DRIVES ATTACHED 10 
THE SELECTED MASSBUS SUBSYSTEM. TO INHIBIT THIS TYPEOUT, DO NO! 
RESTART THE PROGRAM FROM ANY OF THE STARTING ADDRESSES; INSTEAD 
TYPE A "CONTROL C* ON THE KEYBOARD TO RETURN THE PROGRAM T0 
COMMAND ENTRY MODE. 


4.3 PROGRAM ACTION 
IN AN EFFORT TO ALLOW CONVERSATION WITH A PROGRAM FOR THE 


PURPOSE OF CONTROLLING !TS OPERATION AND PARAMETERS THE FOLLOWING 
CONSTRUCTIONS HAVE BEEN ADOPTED. 


NOWSE Wwhr— 
oe . . a . . +. 


a 
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4.3.1 


NOTE1: IN ALL EXAMPLES BRACKETS ARE USED FOR CLARITY AND ARE 
NOT TYPED BY THE USER. 


NOTE2: THE CARRRIAGE RETURN TYPED BY THE USER IS INDICATED By 
<CR> AND WILL BE ECHOED AS A ‘CARRIAGE RETURN-LINE FEED’. 


<.><CR> PERIOD 


A STATEMENT TERMINATOR: WHEN TYPED AT THE 

END OF A LINE (LEGAL ON ALL LINES) IT TELLS 
THE PARAMETER STRING INTERPRETER (PSI) THIS IS 
ra _ OF CHANGES TO THE CURRENT PARAMETER 

$ IN . 


<..><CR> PERIOD PERIOD 
THE “PERIOD PERIOD’ TERMINATOR IS TYPED TO INDICATE 
THE END OF TEST PARAMETER MODIFICATION AND TO SIGNAL 
THE START OF TEST EXECUTION. 

<,><CR> COMMA 


THE COMMA IS USED AS A SEPARATOR BETWEEN DRIVE NUMBERS 
AND TEST NUMBERS. 


</> SLASH 
& MODIFICATION INDICATOR: IF A SLASH FOLLOWS A TEST 
NUMBER, THE PROGRAM WILL OPEN THAT TEST FOR PARAMETER 
MODIFICATION. 

<*Uu> CONTROL =U 
DELETE THE PRESENT INPUT STRING AND START A NEW 
LINE. TYPED BY DEPRESSING THE ‘CONTROL KEY" 
(CTRL) AND THEN STRIKING THE ‘U'’” 

<\> RUBOUT 
DELETE THE LAST CHARACTER FROM THE INPUT STRING. 
TYPED BY STRIKING THE ‘‘RUBOUT’ KEY. WHICH WILL 


BE ECHOED BY A BACKSLASH (\) FOLLOWED BY THE 
CHARACTER DELETED. 


CONTROL SWITCH SELECTION 

STARTING THE PROGRAM AT ANY OF THE POSSIBLE STARTING ADDRESSES 
WITH SW<O7>=1 WILL RESULT IN ENTERING THE “‘CONTROL SWITCH 
SETTING’ MODE. THUS, ALLOWING THE OPERATOR TO SPECIFY THE 
DESIRED STATE OF ‘'C.SwWR'’, 

CONTROL SWITCH SELECTION EXAMPLES: 


EXAMPLE #1 


SEQ 000 
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SET Sw<07>=0 

C.SWR=000000 / 400.. 
EXAMPLE #2 

SET Sw<07>=-0 

C.SWR=000000 / 220. 

C.SWR=000000 / 220.. 


4.35.2  RH11 = RH70 ADDRESS SELECTION 


STARTING THE PROGRAM AT 200 WILL RESULT IN AUTOMATIC 
SELECT OF THE DEFAULT VALUES OF BUS ADDRESS (RPCS1), 
VECTOR ADDRESS, AND PRIORITY LEVEL OF THE RH11-RH70. 


G 1 
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1f THE DEFAULT VAULE OF THE BUS ADDRESS DOES NOT RESPOND 
(TIMES OUT) WHEN ADDRESSED, AN ERROR IS REPORTED. 
AFTER THE ERROR 1S REPORTED ONE OF TWO COURSES OF ACTION 


WILL BE TAKEN: 


1. If THERE 1S A MONITOR == RETURN TO THE MONITOR 


2. If THERE ISN*T A MONITOR == ASK FOR NEW ADDRESSES 


STARTING THE PROGRAM AT 210 OR 214 ALLOWS THE OPERATOR 
TO CHANGE THE ADDRESS OF THE RH11 OR RH70 AND THE VECTOR 


ADDRESS. 


THE PROGRAM ALLOWS THE ADDRESSES TO BE CHANGED On WHEN THE 
PROGRAM IS FIRST STARTED. STARTING ADDRESSES 210(8) AND 214(8) 
ARE TREATED AS ADDRESSES 200(8) OR 204(8) RESPECTIVELY. 


ADDRESS SELECTION EXAMPLES 
EXAMPLE #1 
RPCS1=176700 / 177200. 
EXAMPLE #2 
RPCS1=176700 / 176300<CR> 
RHVEC=254 / 260<CR> 
RHPRIO=5 / 6. 
EXAMPLE #3 


RPCS1=176700<CR> 
RHVEC=254 / 260. 


EXAMPLE #4 


RH11/RPO4 FAILED TO RESPOND TO ADDRESSING 
ERR PC 


RPCS1 
176300 KXKKKK 
RPCS1=176300 / 176700. 


SEQ 0006 
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EXAMPLE #5 


RPCS1=176700 / 1776\67\6300<CR> 
RHVEC=254<CR> 
RHPR1IO=5<CR> 
RPCS1=176300. 


DRIVE AND PARAMETER SELECTION 


STARTING THE PROGRAM AT 200 OR 210 WILL RESULT IN AUTOMATIC 
SELECTION OF THE DRIVES TO TEST AND THE TESTS TO RUN. 


STARTING THE PROGRAM AT 204 OR 214 ALLOWS THE OPERATOR 
TO SELECT THE DRIVE(S) TO BE TESTED, THE TESTS TO BE EXECUTED, 
AND THE PARAMETERS TO USE. 


EACH TEST CONTAINS TWO SETS OF CYLINDER LIMIT PARAMETERS. PARAMETERS 
"LC* AND ‘FC* ARE USED BY RPO4/5 DRIVES AND PARAMETERS ‘LC** AND 

*FC** ARE USED BY RPO6 DRIVES. THE PROGRAM DETERMINES WHICH DRIVE 

1S BEING TESTED AND SELECTS THE CORRECT SET OF CYLINDER LIMIT 

VALUES. IF THE PROGRAM 1S BEING USED TO TEST A SUBSYSTEM WHICH 

CONTAINS BOTH RPO4/5 AND RPO6 DRIVES, THE OPERATOR MUST CHANGE ~ 
BOTH SETS OF CYLINDER LIMITS IF THE TESTS ARE TO BE MODIFIED FOR 

ALL DRIVES TESTED. 


DRIVE AND PARAMETER SELECTION DESCRIPTION 
THE FOLLOWING 1S A TABLE OF TERMS USED BY THE PSI. 


x REPEATS (ITERATIONS) 

ee FIRST CYLINDER ADDRESS FOR RP04/5'S 
“. LAST CYLINDER ADDRESS FOR RPO4/5'S 
“FC'’’ FIRST CYLINDER ADDRESS FOR RPO6'S 
“LC*'* LAST CYLINDER ADDRESS FOR RPO6'S 

m , Se INCREMENT CYLINDER 

16. ji FIRST TRACK ADDRESS 

a 8 me LAST TRACK ADDRESS 

m5 we INCREMENT TRACK 

“ms FIRST SECTOR ADDRESS 

“5” LAST SECTOR ADDRESS 

“PAT PATTERN (USED FOR DATA TEST) 

“WDx'' WORD OF PATTERN 0 WHERE X 1S 1 TO 16 


«"'s"* ALL SEEK TESTS (TESTS 0 -_10) 

ih ALL TIMING TESTS (TESTS 12 = 15) 
A" ALL ADDRESS TESTS (TESTS 16 = 17) 
*"'D" THE DATA TEST (TEST 20) 

oe" THE EXERCISER (TEST 21) 


* USED BY THE OPERATOR TO SELECT TEST GROUPS 
NOTE: ALL NUMBERS WILL BE IN DECIMAL EXCEPT FOR THE PATTERN 
(PAT) AND WORDS (WDX) SELECTION. ‘‘PAT’’ WILL BE SELECTED 
BY A BIT (J.£. 001000(8)=PATTERN 9) AND “WwDX'’ WILL BE IN OCTAL, 


SPECIAL CASES OF CONTROL CHARACTERS 





SEQ 0007 


Ne ae ee  -  e e  e 
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If <..> 1S TYPED WHILE A TEST IS OPEN FOR gd a 
(</>) AND OTHER TESTS IN THE ““TEST COMMAND’ STRING 
ARE TO BE MODIFIED, THE REMAINING TESTS WILL BE UNCHANGED. 


WHEN THE PROGRAM 1S STARTED FROM LOCATION 200 OR 210, TESTS 0-10, 
12-20 WILL SE RUN USING ALL AVAILABLE, ONLINE DRIVES. IF THE OPERATOR 
WISHES TO SELECT THE DRIVES TO BE TESTED, THE TESTS TO BE PERFORMED, 
OR THE PARAMETERS TO BE USED, THE CONVERSATION MODE MAY BE ENTERED 

BY TYPING A ‘CONTROL C* OR BY STARTING THE PROGRAM FROM EITHER 
LOCATION 204 OR 214. 


= 


THE PROGRAM WILL THEN RESPOND WITH: 
DRIVE(S)= 


THE FOLLOWING EXAMPLES ASSUME THAT THE OPERATOR IS TO TEST 

DRIVE #3 USING TESTS 2 THRU 7 AND TEST ‘1 AND DOES NOT DESIRE TO CHANGE 
THE PARAMETERS (IMITIAL CYLINDER ADDRESS, FINAL CYLINDER ADDRESS, ETC.). 
THE USER WOULD TYPE *3<CR>" WHICH SAYS ‘THIS IS THE END OF DRIVE ENTRY’. 
THE PROGRAM WILL THEN REQUEST TEST NUMBERS. 


THE TRANSACTION APPEARS AS FOLLOWS: 
DRIVE(S)=3<CR> 
TE 


THE OPERATOR MAY NOW ENTER DESIRED TEST NUMBERS. IN THE EXAMPLE, 
HE WANTS TESTS 2 THRU 7 AND TEST 11 SO HE TYPES 2=7<,> (THE ‘COMMA’ 
SEPARATES ENTRIES), 11<.><CR> (*PERIOD’ “CARRIAGE RETURN' - 

END OF CHANGES, START TEST EXECUTION.) 


17 NOW LOOKS LIKE THIS 


DRIVE(S)=3<CR> 
TEST=2-7,11.<CR> 


_ THE NEXT EXAMPLE, IT 1S ASSUMED THAT THE OPERATOR WISHES TO TEST 
vclv— 6 AND TO RUN TESTS 1 AND 3 THRU 11, MODIFYING THE PARAMETERS 
FOR TESTS 3 AND 10. 

THE TRANSACTION WOULD BE AS FOLLOWS: 


DRIVE(S) =6<CR> 
TEST= 


THE OPERATOR NOw ENTERS THE TEST NUMBERS. THE TRANSACTION 1S 
GIVEN BE. Ow: 


DRIVE (S)=4<CR> 
TEST=1,3/4-7,10/11<CR> 


NOTICE THIS SAYS SELECT TEST 1, CONTINUE<,>; SELECT TEST 3, OPEN</>; 
SELECT TESTS 4=7, CONTINUE<,>; SELECT TEST 10, OPEN</>; SELECT TEST 
11, END OF INPUT <.>. 


SEQ 0008 | 
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THE PROGRAM SCANS THE TEST NUMBER INPUT AND DETERMINES THAT THE 
PARAMETERS FOR TEST 3 AND TEST 10 ARE 10 BE CHANGED. THE OTHER 
TESTS WILL NOT BE ALTERED. 


(THE ENTIRE TRANSACTION IS REPEATED FOR CLARITY) 


DRIVE (S)=4<CR> 
TEST=1, 3/4-7,10/11<CR> 
TEST 3 


R=X / ; WHERE X IS ITERATION 
THE NEW VALUE FOR ‘R' MAY BE ENTERED. TERMINATING THE ENTRY WITH 
A <.> (PERIOD) WILL TERMINATE THE CHANGES FOR THIS TEST; TYPING A 
<CR> OR TERMINATING THE ENTRY WITH A <CR> WILL CAUSE THE PROGRAM 
TO MOVE TO THE NEXT PARAMETER. 


DRIVE(S) =4<CR> 
wa eS rete ieee 


EST 3 
R=1 / <CR> 3D0 NOT ALTER-BUT CONTINUE 
FC=N / ;WHERE "N° IS FIRST CYLINDER ADDRESS 


IF THE OPERATOR DOES NOT WISH TO CHANGE "FC", THE FOLLOWING OCCURS: 


DRIVE(S)=4<CR> 
ee ee 


TES 
R=1 / <CR> ;D0 NOT ALTER THIS LINE BUT CONTINUE 
reef <CR> ;D0 NOT ALTER THIS LINE BUT CONTINUE 
LC=410 / 


THE PROGRAM RESPONDS WITH THE PREVIOUSLY ASSIGNED PARAMETER FOR LAST 
CYLINDER ADDRESS IN THIS CASE USING 410 AS THE EXAMPLE. THIS IS 
WHAT THE OPERATOR INTENDED TO MODIFY AND IS WHY TEST 3 WAS 

OPENED. TO CHANGE THE VALUE TO ‘20°, THE NEW VALUE IS TYPED 
FOLLOWED BY A ‘PERIOD’ TERMINATOR (<.><CR>). 


THE TOTAL TRANSACTION AND RESPONSE: 


DRIVE(S) =4<CR> 
TEST=1,3/4-7,10/11<CR> 
TEST 3 
R=1 / <CR> 
FC=0 / <CR> 
LC= 410 / 20.<CR> 
TEST 10 
R=1 / 


THE PROGRAM HAS LOADED TEST 3 WITH ITS NEW PARAMETERS AND THE 
PROGRAM 1S WAITING FOR CHANGES TO TEST 10°S PARAMETiRS. 


DRIVE(S) =4<CR> 
“TEST=1,3/4-7,10/11<CR> 
TEST 3 
R=1 / <CR> 
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4.3.3.2 


FC=0 / <CR> 
LC= 41 10 / 20.<CR> 
TEST 10 


R=1 / 10.<CR> 


THE OPERATOR TYPES THE NEW VALUE (10) AND TERMINATES THE ENTRY 
WITH A "PERIOD® “CARRIAGE RETURN’. 


THE PROGRAM NOW LOADS TEST 10 WITH THE NEW PARAMETERS (TEST 11 RETAINS 
THE PREVIOUSLY ASSIGNED PARAMETERS) AND RESPONDS WITH: 


DRIVE(S)= 


SINCE THE USER DID NOT END THE CONVERSATION MODE WITH A "PERIOD PERIOD’, 
THE PROGRAM HAS LOOPED BACK TO THE BEGINNING LOOKING FOR MORE 

CHANGES. THAT 1S TO SAY, AFTER THE ENTRY FOR DRIVE SELECTION. A 

<,><CR> WILL CAUSE THE TEST MESSAGE TO BE REPEATED AND FURTHER 

CHANGES CAN BE MADE. HOWEVER, AT SOME POINT IN ORDER TO EXECUTE 

THE PROGRAM, A ‘PERIOD PERIOD*® MUST BE TYPED. 


1F A SINGLE ‘PERIOD’ IS TYPED WHILE DRIVE OR TEST NUMBERS ARE BEING 
ENTERED, THE PROGRAM WILL START EXECUTION IMMEDIATELY. A ‘PERIOD 
PERIOD" MUST BE TYPED BEFORE THE PROGRAM WILL EXIT TEST PARAMETER 
CHANGE MODE TO GO TO EXECUTION. 


DRIVE AND PARAMETER SELECTION EXAMPLES 


EXAMPLE #1 


DRIVE=4.<CR> ;SELECT DRIVE #4, TERMINATE AND 
;BEGIN EXECUTION USING PREVIOUSLY ASSIGNED 
; PARAMETERS 


EXAMPLE #2 


DRIVE=0«CR> 7SELECT DRIVE #0 AND MAKE CHANGES °’," 
TEST=1-5.<CR> RUN TEST 1 THRU 5 ONLY, USE DEFAULT 
PARAMETERS AND TERMINATE AND EXECUTE." 


EXAMPLE #3 
DRIVE=2<CR> >SELECT DRIVE #2 AND MAKE CHANGES “',"' 
TEST=1-5,6/7/10/<CR> sRUN TEST 1-5 WITH DEFAULT PARAMETERS, OPEN 
TEST 6 :TEST 6,7 AND 10 FOR CHANGES 
R=1 / <CR> LEAVE ip! AS 1S AND MOVE TO NEXT PARAMETER 
FC=0 / 10.<CR> :SET ‘FC' CYLINDER ADDRESS TO 10, END CHANGES 
3:10 TEST 6. 
TEST 7 
R=1 / 50<CR> 750 ITERATIONS, MOVE TO NEXT PARAMETER 
FC=0 / <CR> 7D0 NOT CHANGE ‘FC* CYLINDER ADDRESS BUT CONTINUE 
LC=410 / 50..<CR> :TEST 10 1S STILL PENDING AND WILL BE 


SEQ 0010 


Fl RP04/5/6 aaa ihe . READ/WRITE TEST 


EXAMPLE #4 


DRIVE=0<CR> 
TEST=S,E.<CR> 


EXAMPLE #5 


DRIVE=1<CR> 
TEST=S/D<CR> 
TEST 0 
R=10 / <CR> 
FC=0 / 10..<CR> 


EXAMPLE #6 


DRIVE=1<CR> 
TEST=S/<CR> 


TEST 0 

R=10 / 100.<CR> 
TEST 

R=100 / 1000.<CR> 
TEST 2 


4 
R=1..<CR> 
EXAMPLE #7 


DRIVE=1<CR> 
TEST=D/<CR> 


TEST 20 

R=1 / 1000<CR> 
FC=0 / 10<CR> 
LC=410 / 10<CR> 
FC’=0 / <CR> 
LC'=814 / <CR> 
1€=64 / O<CR> 
FI=0 / 2<CR> 
LT=18 / 2<CR> 
1T=1 / <CR> 
FS=0 / 4<CR> 
LS=22 / 4<CR> 
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sRETAIN ITS PRESENT PARAMETERS. 


SELECT DRIVE #0 AND MAKE CHANGES 
RUN ALL SEEK TESTS AND THE EXERCISER 


RUN ALL SEEK TESTS (OPEN FOR CHANGES) AND 
;THE DATA TEST (WITH DEFAULT PARAMETERS). 
;RUN WITH 10 ITERATIONS 

CHANGE FIRST CYLINDER ADDRESS 

AND START EXECUTION 

TESTS 1 = 10 WILL RETAIN THEIR PREVIOUSLY 
ASSIGNED PARAMETERS. 


OPEN THE SEEK TESTS (TESTS 0-10) 

;CHANGE TO 100 ITERATIONS, TO TO THE NEXT TEST 
;CHANGE *R* TO 1000 ITERATIONS, MOVE TO NEXT TEST 
;CHANGE ‘R* TO 10 ITERATIONS, GO TO NEXT PARAMETER 
sCHANGE 'FC’ 10 50, GO TO NEXT PARAMETER 

CHANGE ‘LC® TO 51, GO TO THE NEXT TEST 

;MOVE TO NEXT TEST 


USE TEST 4°S PARAMETERS AND START PROGRAM EXECUTION 


>SELECT AND OPEN THE DATA TEST 


700 1000 ITERATION OF TEST PATTERN 
7#8 ON CYLINDER 10, TRACK 2, SECTOR 4 


;RP06 PARAMETER 
;RPO6 PARAMETER 


SEQ 0011 
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5.1 


SEQ 0012 
PAT=177777 / 400..<CR> ;RUN WITH PATTERN #8 


EXAMPLE #8 
DRIVE=1<CR> ;USE THE SAME PARAMETERS AS IN EXAMPLE 
TEST=D/<CR> 347, BUT ALSO SPECIFY & DATA PATTERN (PAT #0). 
TEST 20 

R=1000 / <CR> 

FC=10 / <CR> 

LC=10 / <CR> 

FC'=0 / <CR> 

LC*=B814 / <CR> 

1C=0 / <CR> 

FT=2 / <CR> 

LT=2 / <CR> 

1T=% / <CR> 

FS=4 / <CR> 

LS=4 / <CR> 

PAT=000400 / 401<CR> ;RUN WITH PATTERNS #8 & #0 (O=OPERATOR INPUT) 
~ up1=165555 / 125252<CR> ;FIRST WORD OF PATTERN 0 

WD2=133333 / 52525..<CR> ;SECOND WORD OF PATTERN 0 
3<..> START EXECUTION 
EXAMPLE #9 
DRIVE=0,1,4<CR> ;TEST DRIVES 0,1, AND 4 IN SEQUENCE 
TEST=0-5/<CR> [CHANGE TEST 5 
TEST 0 

R=10 / <CR> 

FC=0 / <CR> 

tC=410 / 1<CR> > CHANGE LAST CYLINDER FROM 410 TO 1 

FC'=0 / <CR> 

LC*=814 / 2..<CR> >CHANGE THE LAST CYLINDER FOR ALL RPO6'S TO 


32. START PROGRAM EXECUTION. 


SWITCH SETTINGS 


OPERATIONAL SWITCH SETTINGS 


WITH SW<15:0>=0 THE PROGRAM WILL PRINT OUT ON 
ERRORS AND CONTINUE IN TEST. 
THE SWITCH SETTINGS ARE: 


SW<15>=1...HALT ON ERROR 

SW<14>=1...LO0P ON TEST 

SW<13>=1... INHIBIT ERROR TYPEOUTS 

SW<11>=1... INHIBIT ITERATIONS 

SW<10>=1...RING BELL ON ERROR 

SW<09>=1...LOOP ON ERROR 

SW<0B8>=1...PRINT ERROR MESSAGE ON LINE PRINTER 
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SW<07>=1...READ CONTROL SWITCH SETTINGS FROM TTY 
$W<06>=1... INHIBIT TIME REPORTS (TESTS 12-15) 
Sw<05>=1...REPORT ONE ERROR PER SECTOR (TESTS 16 & 17) 
$W<04>=1... INHIBIT WRITES (TEST 20) 

Sw<03>=1... INHIBIT WRITE CHECKS (TEST 20) 

SW<02>=1... INHIBIT READ AND SOFTWARE COMPARES (TEST 20) 
Sw<01>=1... INHIBIT SOFTWARE COMPARES (TEST 20) 
Sw<00>=1...PERFORM READ AFTER WRITE CHECK ERROR (TEST 20) 


1f THE PROGRAM 1S BEING RUN ON A SWITCHLESS PROCESSOR (1.E. AN 11/34) 
THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS 

NOT PRESENT AND Wii, USE A ‘SOFTWARE’ SWITCH REGISTER. THE 
*SOFTWARE’ SWITCH REGISTER 1S LOCATED AT LOCATION 176 (8). THE 
SETTINGS OF THE ‘SOFTWARE’ SWITCHES ARE CONTROLLED THROUGH A KEYBOARD 
ROUTINE WHICH 1S CALLED BY TYPING A ‘CONTROL G'. THE PROGRAM WILL 
RECOGNIZE THE “CONTROL G' AT ANY TIME EXCEPT WHEN THE PROGRAM 

1S AT A HIGHER PRIORITY PROCESSING AN RPO4/576 INTERRUPT. THE 
*SOFTWARE’ SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE 
TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE: 


*SWR = NNNNNN NEW = 


EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER 
IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED., ‘RUBOUT’ AND 
*CONTROL U* FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS 

DURING SWITCH ENTRY. 


ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE “SOFTWARE* SWITCH 
REGISTER MAY BE USED. IF THE PROGRAM FINDS ALL 16 SWITCHES IN THE 
‘UP’ POSITION, ALL SWITCH REGISTER REFERENCES WILL BE TO THE 
Mg bape eng AND THE PROCEDURES DESCRIBED ABOVE MUST 

LL . 


CONTROL SWITCH SETTINGS 
THE CONTROL SWITCH SETTINGS ARE ENTERED THROUGH THE KEYBOARD. 
TO ENTER THE CONTROL SWITCH SETTING MODE PLACE SwW<07>=1 
BEFORE PRESSING START. THEN UPON STARTING THE PROGRAM IT 
WILL TYPE THE PRESENT CONTENTS OF THE CONTROL SWITCH REGISTER 
(C.SWR) AND WAJT FOR THE NEW SETTING TO BE INPUT. THE INPUT 
STRING MUST CONSIST OF 1 TO 6 OCTAL DIGITS, TWO PERIODS (..), 
AND A CARRIAGE RETURN. 
THE C.SWR SETTINGS ARE: 
C.SWR<15>=0...WRITE PACK BEFORE TESTING (TEST16) 

1... INHIBIT WRITE PACK BEFORE jth (TEST16) 
C.SWR<14>=0...NO STALL BETWEEN DRIVE FUNCTIONS 

1...STALL AFTER EVERY DRIVE FUNCTION 
C.SWR<13>=0. - USE SPECIFIC STALL TIMES 

1,...USE RANDOM STALi TIMES 
C.SwWR<12>=0...NO INCREMENTING STALLS IN TEST4 

1...PERFORM INCREMENTING STALLS IN TESTS 
C. SUR<08>= =0...90 IMPLIED SEEKS WITH DATA TRANSFERS 

.-DO EXPLICIT SEEKS BEFORE DATA TRANSFERS 


SEQ 0015 
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C.SWR<07>=0...D0 READ HEADER AND DATA COMMANDS IN TESTS 0-6 
=1...D0 EXPLICIT SEEK COMMANDS IN TESTS 0-6 
C.SWR<06>=0...60 HZ POWER SOURCE 
=1...50 HZ POWER SOURCE 
C.SWR<05>=0.. ALLOW SOFTWARE TIMEQUTS(ENABLE WATCHDOG TIMER) 
=1...INHIBIT SOFTWARE TIMEQUTS(DISABLE WATCHDOG TIMER) 
C.SWR<00>=0.. OPERATE IN 22 SECTOR (16 BIT) MODE 
=1...O0PERATE IN 20 SECTOR (18 BIT) MODE 


THE DEFAULT CONDITION OF C.SWR<15:00>=0. 
REFER TO 4.3.1 FOR C.SWR SELECTION 


ERRORS 


THERE ARE ANUMBER OF ERRORS THAT CAN OCCUR IN THIS PROGRAM. 
WHEN AN ERROR IS ENCOUNTERED, THE CALL TO THE ERROR ROUTINE 
1S MADE AND IF Sw<13> 1S NOT SET, AN ERROR MESSAGE PERTAINING 
TO THE ERROR WILL BE TYPED. EACH ERROR TYPEOUT WILL CONTAIN 
THE FOLLOWING: 


1. AN ERROR MESSAGE 
2. A DATA HEADER 
3. A DATA STRING 


REFER TO THE menor SECTION FOR THE DIFFERENT ERRORS 
THAT CAN OCCUR 


ERROR TYPES 


THE ERRORS THAT OCCUR IN THIS PROGRAM FALL INTO THREE 
(3) CATEGORIES DEFINED AND EXPLAINED AS FOLLOWS: 


DRIVER ERROR 


THESE ERRORS WILL BE DETECTED BY THE RH11/RPO4/5/6 DRIVER. 
THERE ARE TWO CLASSES OF DRIVER ERRORS; THOSE THAT 

CAN NOT BE IDENTIFIED IN A MANNER THAT ALLOWS THE 
INFORMATION TO BE RETURNED TO A ‘‘DATA PARAMETER BLOCK” 
(DPB) AND THOSE THAT CAN. THE FIRST CLASS WILL BE 
REPORTED BY ERROR CALLS (EMT'S) 1-5 WITHIN THE DRIVER. 

THE SECOND CLASS WILL PASS THE ERROR CODES 70 THE 
STATUS/ERROR WORD (DPB+16) OF THE PROPER DPB. 


NON-FATAL ERRORS 

THESE ERRORS WILL BE DUE TO ‘‘DISK'’ OR ‘DATA’ FAILURES 
WHICH WILL BE REPORTED AS THEY OCCUR. AFTER REPORTING 
THE ERROR THE PROGRAM WILL CONTINUE TESTING. 


FATAL ERRORS 


SEQ 0014 | 
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6.2 
6.2.1 


6.2.2 


6.2.3 


SE@ 0015 


THIS TYPE OF ERROR WILL BE THE RESULT OF ANY KIND 
OF ERROR THAT INHIBITS THE PROGRAM FROM TESTING THE DISK. 


THIS ERROR WILL BE REPORTED WHEN IT OCCURS, THEN THE PROGRAM 
WILL ABORT THE TEST AND GO TO THE END OF PROGRAM. 


ERROR RECOVERY 
PRETEST ERROR 


WHEN THIS TYPE OF ERROR OCCURS IT WILL BE REPORTED. THEN DEPENDING 
ON HOW THE PROGRAM WAS STARTED IT WILL ASK FOR THE DRIVES AND 
ADDRESSES FOR TESTING OR RETURN TO MONITOR. 


NON-FATAL ERROR 


WHEN THIS TYPE OF ERROR OCCURS IT WILL BE REPORTED AND 
THE PROGRAM WILL CONTINUE IN TEST. 


FATAL ERROR 


WHEN THIS TYPE OF ERROR OCCURS IT WILL BE REPORTED. THE 
PROGRAM WILL ABORT THE TEST AND GO TO THE END OF PROGRAM, 


RESTRICTIONS 


THE PROGRAM WILL TEST THE DRIVES IN EITHER 16 BIT MODE OR IN 18 

BIT MODE DEPENDING ON THE SETTING OF *S.SWR<O0>'. IF ‘C.SWR<00>" 

1S 0, ALL OF THE DRIVES WILL BE TESTED IN 16 BIT MODE; IF ‘'C.SWR<00> 
1S 1, ALL OF THE DRIVES WILL BE TESTED IN 18 BIT MODE. THE PROGRAM 
HAS NO PROVISIONS FOR TESTING DRIVES WITH INTERMIXED PACKS OR TESTING 
BOTH 16 BIT MODE AND 18 BIT MODE DRIVES ON THE SAME SYSTEM, 

ACT11 AUTOMATIC MODE ASSUMES 16 BIT MODE. 


BEFORE THE PROGRAM IS STARTED, PROPERLY FORMATTED PACKS MUST BE MOUNTED 
ON THE DRIVES WHICH WILL BE TESTED. THE PROGRAM ASSUMES A 

PROPERLY FORMATTED PACK. THE FORMAT OF THE PACK IS NOT ALTERED 

BY THE PROGRAM, 


THERE IS A RESTRICTION ON PROGRAMMABLE DRIVES IN CERTAIN SITUATIONS SEE SECTIONS 2.4 AND 4.1. 


a a 


MISCELLANEOUS 


EXECUTION TIME 


THE PROGRAM REQUIRES APPROXIMATELY 15 MINUTES TO MAKE ONE PASS WITH 
RP04/5 DRIVES AND APPROXIMATELY 16.5 MINUTES TO A PASS WITH RPOO 
DRIVES. THIS ASSUMES THE DEFAULT TEST SEQUENCE (TESTS 0-10, 12-20) 


a | 
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8.2 


8.3 


8.5.2. 


AND DEFAULT TEST PARAMETERS. 

STACK POINTER 

THE STACK POINTER IS INITIALLY SET TO 1100. 
TIMING TESTS (TESTS 12-15) PRINTOUTS 


AT THE COMPLETION OF EACH OF THE TIMING TESTS THE TIME OF THE 
MINIMUM SEEK, MAXIMUM SEEK, AND THE AVERAGE OF ALL OF THE 
SEEKS PERFORMED ARE TYPED ON THE TTY. THE NUMBER OF SEEKS THAT 
HAD TIMES BELOW THE MINIMUM TIME ALLOWED WILL BE TYPED ON 

THE SAME LINE AS THE MINIMUM TIME. THE NUMBER ABOVE THE 
MAXIMUM WILL BE TYPED ON THE SAME LINE AS THE MAXIMUM 

TIME, AND THE TOTAL NUMBER OF SEEKS PERFORMED WILL BE ON THE 
SAME LINE AS THE AVERAGE. 


NOTE: THE PROGRAM STALLS FOR 2 MILLISECONDS BETWEEN SEEK ORDERS, 
THIS STALL TIME IS NOT INCLUDED IN THE CALCULATED SEEK TIMES. 
THE 2 MILLISECOND STALL BETWEEN SEEK ORDERS 1S SPECIFIED BY 


THE RPOG VENDOR. THE SEEK TIMES SPECIFIED FOR THE RPO4 


ARE POSITIONER MOVEMENT TIMES ONLY AND ARE NOT A MEASUREMENT 


OF EFFECTIVE SEEK TIME. 
TIMING TOLERANCES 
1. TEST 12 == ROTATIONAL SPEED TIMES 
60 HZ 
MINIMUM=16340 US 


MAXIMUM=17000 US 
NOMINAL=16670 US 


50 x2 
MINIMUM=16250 US 
MAXIMUM=17090 US 
NOMINAL=16670 US 
2. TEST 13 == ONE CYLINDER SEEK TIMES 


MAXIMUM=10000 US 
NOMINAL =7000 US 


3. TEST 14 == ACCESS TIME MEASUREMENT 


MAXIMUM=30000 US 
NOMINAL=28000 US 


4. TEST 15 == MAXIMUM SEEK TIMES 


MAXIMUM=52000 US 
NOMINAL=50000 US 


TIMING TESTS PRINTOUT EXAMPLES 


SEQ 0016 


err | 


—E 2 
CZRJAD Pt podiat ” Ne ayy READ/WRITE TEST MACY11 30A(1052) 24-MAY-79 13:59 PAGE 21 


EXAMPLE #) 


ROTATIONAL SPEED TIMES 
MIN=16670 US 
MAX=16690 US 
AvG=16680 US 10 SEEKS TIMED 


ONE CYLINDER SEEK TIMES 
* FORWARD 

MIN=5350 US 

MAX=6920 US 

AvG=5550 US 409 SEEKS TIMED 
* REVERSE 

MIN=5140 US 


MAX=5960 US 
AVG=5430 US 410 SEEKS TIMED 


ACCESS TIME MEASUREMENTS 
* FORWARD 

MIN=27770 US 

MAX=28640 US 

AvG=28230 US 128 SEEKS TIMED 
* REVERSE 

MIN=27990 US 

MAX=28550 US 

AvG=28220 US 128 SEEKS TIMED 


MAXIMUM SEEK TIMES 
* FORWARD 

MIN=49990 US 

MAX=51980 US 

AvG=51010 US 128 SEEKS TIMED 
* REVERSE 

MIN=48120 US 

MAX=50650 US 

AvG=49340 US 128 SEEKS TIMED 


EXAMPLE #2 


ROTATIONAL SPEED TIMES 
MIN=16670 US 

MAX=16690 US 

AvG=16680 US 10 SEEKS TIMED 


ONE CYLINDER SEEK TIMES 
* FORWA va 

MIN=5470 U 

MAX= 10940. us 3 ABOVE THE MAXIMUM OF 10000 US 

AvG=5830 uS 409 SEEKS TIMED 
* REVERSE 

MIN=5040 US 

MAx=5970 US 

AvG=5330 US 410 SEEKS TIMED 


SEQ 0017 
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ACCESS TIME MEASURMENTS 
* FORWARD 


MAX=31620 US 73 ABOVE THE MAXIMUM OF 30000 US 
AVG=30320 US 128 SEEKS TIMED 


MAX=31230 US 128 ABOVE THE MAXIMUM OF 30000 US 
AvG=30800 US 128 SEEKS TIMED 


MAXIMUM SEEK TIMES 
* FORWARD 
MIN=53510 US 
MAX=54240 US 128 ABOVE THE MAXIMUM OF 52000 US 
AvG=54020 US 128 SEEKS TIMED 
* REVERSE 
MIN=52050 US 
MAX=54550 US 128 ABOVE THE MAXIMUM OF 52000 LS 
AvG=52210 US 128 SEEKS TIMED 


END OF TEST 


WITH ALL SWITCHES ON A ‘‘O"' AN "‘END OF PASS" MESSAGE WILL BE 
TYPED AT THE COMPLETION OF TESTING A DRIVE AND THE “END OF TEST" 
TYPEOUT WILL OCCUR WHEN ALL DRIVES HAVE BEEN TESTED. 


PROGRAM DESCRIPTION 


THIS PROGRAM CONTAINS NINTEEN TESTS NUMBERED 0-22 IN OCTAL. 
TESTS O-7 & 11 WILL READ THE CYLINDER, TRACK, AND SECTOR INFORMATION 
FROM THE HEADER, USING A ‘'READ HEADER AND DATA’’ COMMAND, AND 
THEN CHECK THE INFORMATION FOR VALIDITY. THUS, INSURING 

THE SEEK OPERATION FUNCTIONS PROPERLY. TESTS 12-15 WILL MEASURE 
THE ROTATIONAL SPEED, THE ONE CYLINDER SEEK, THE ACCESS TIME, 
AND THE MAXIMUM SEEK TIMES TO ENSURE THEY ARE ALL WITHIN THE 
TOLERANCES ALLOWED. TEST 16 AND 17 ENSURES THE SECTOR AND 

TRACK ADDRESSING CIRCUITRY WORKS PROPERLY. TEST 20 VERIFIES 

THE DATA STORAGE AND RETRIEVAL CAPABILITIES ARE FUNCTIONAL. 

an Meh 21 WILL STRESS AND CHECK THE READ/WRITE AND SERVO 
SYSTEMS. 


THE PROGRAM WILL START BY IDENTIFING ITSELF AND DETERMINING ALL 
DRIVES THAT ARE AVAILABLE FOR TESTING. THEN BEGINNING WITH 

THE LOWEST NUMBERICAL DRIVE AND PROCEEDING IN SEQUENTIAL ORDER. 
ALL OF THE DRIVES WILL BE TESTED. ONE PASS THROUGH THE TEST 
SEQUENCE (TESTS 0-10,12-20) WILL BE PERFORMED ON EACH DRIVE BEFORE 
MOVING TO THE NEXT DRIVE IN SEQUENCE. DRIVE TO BE 

TESTED WILL BE TYPED AT THE BEGINNING OF EACH PASS, AN “‘END 

OF PASS*' MESSAGE WILL BE TYPED AT THE COMPLETION OF EACH PASS, 

AND AN “END OF TEST’ MESSAGE WILL BE TYPED AFTER TESTING Ait 


——_--—----- ---, 


SEQ 0018 
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9.2 


9.3 


DRIVES. 


REFER TO THE FOLLOWING SECTIONS FOR DETAILED DESCRIPTIONS 
OF EACH TEST. 


TEST 0 = RECAL/SEEK TEST 

THIS TEST WILL CAUSE THE DRIVE TO EXECUTE A RECALIBRATE 
COMMAND CYCLE AND THEN SEEK FORWARD TO CYLINDER “LC’’. AT 
THE COMPLETION OF BOTH COMMANDS, STATUS INDICATIONS ARE 
CHECKED TO ENSURE NO ERRORS OCCURRED. 


THE PARAMETERS USED BY THE TEST ARE GIVEN BELOW: 


R ° 200 
Lc ° 4106 
Lc" - 814 
FT ° 0 
FS » 0 


TEST 1 = SEEK/SEEK TEST 
THIS TEST WILL CAUSE THE DRIVE TO EXECUTE A FORWARD SEEK 
CYCLE TO ‘LC’, “LT, “‘LS*’ FOLLOWED BY A REVERSE SEEK CYCLE 10 
i «< TE Me "FS", AT THE COMPLETION OF EACH SEEK, THE PROPER 
INDICATORS ARE EXAMINED TO ENSURE PROPER OPERATION. 
THE PARAMETERS USED BY THE TEST ARE GIVEN BELOW: 
100 

0 
128 


0 
256 


ooo°oo 


TEST 2 = INCREMENTAL SEEK TEST 


THIS TEST WILL COMMAND FORWARD SEEK CYCLES 10 ADVANCE THE 
CYLINDER ADDRESS FROM “‘FC'’ TO “LC’’ BY THE INCREMENT “‘IC"’. 
WHEN THE RESULTANT CYLINDER ADDRESS (NC) EXCEEDS 

“LC’’ REVERSE SEEK CYCLES ARE INITIATED; STARTING 

AT THE LAST LEGAL ‘‘NC'’ AND DECREMENTING BY “‘IC"’ 

UNTIL “'NC’’ IS LESS THAN ‘'FC’’. AT THE COMPLETION OF EACH 
SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO 
ENSURE PROPER OPERATION. 


THE PARAMETERS USED BY THE TEST ARE GIVEN BELOW: 


R - 1 
FC =: 0 


SEQ 0019 



















9.4 


9.5 


9.6 
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LC a 410 
FC* ° 0 
Lc’ a 814 
Ic ad 1 
FT = 0 
FS ° 0 


TEST 3 = STEPPING SEEK TEST 


THIS TEST WILL COMMAND SEEK CYCLES TO CYLINDER 0,1,2,4, 
8,16,32,64,128, AND 256. AT THE COMPLETION OF EACH SEEK 
COMMAND THE PROPER INDICATORS ARE EXAMINED TO VERIFY PROPER 


OPERATION. 
THE PARAMETERS USED BY THE TEST ARE GIVEN BELOW: 
R ° oS 
FC a 0 
LC - 256 
a® - 0 
Lc" . 256 
1c - 1 
FT - 0 
FS > 0 


TEST 4 = OSCILLATING SEEK TEST 


THIS TEST WILL COMMAND SEEK CYCLES FROM "FC" 10 "NC'' AND BACK 

TO “’FC'’. $=“'NC’' STARTS AT ‘‘FC’' AND INCREMENTS BY “‘IC’' UP TO CYLINDER 
3s) ae THEN 1S DECREMENTED BY “IC’’ BACK TO CYLINDER FC’. AT THE 
COMPLETION OF EVERY SEEK COMMAND THE PROPER INDICATORS ARE 

EXAMINED TO ENSURE PROPER OPERATION. 


THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 


R - 1 
FC - 0 
LC - 410 
FC* > 0 
LC" - 814 
IC - 1 
FT - 0 
FS ad 0 


TEST 5 = CONVERGING/DIVERGING SEEK TEST 
- THIS TEST WILL CAUSE THE DRIVE TO EXECUTE FORWARD AND REVERSE 





a + - - 


Na = re ne ee 
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SEEKS FROM "'NC1"’ AND “‘NC2"’ RESPECTIVELY, "NCI" WILL BE INCREMENTED 
BY ““I1C’’ AND "'NC2"* WILL BE DECREMENTED By “IC UNTIL “NCI” IS 
GREATER THAN THE INITIAL VALUE OF “'NC2°* AND “‘NC2"' JS 

LESS THAN THE INITIAL VALUE OF “‘NC1"’, AT THE COMPLETION OF 

EACH SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO 


_ ENSURE PROPER OPERATION. ‘“‘NC1"’ AND “'NC2"* DEFAULT 10 


SEQ 0021 
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9.7 


“FC. AND "LO" RESPECTIVELY. 
THE FOLLOWING PARAMETERS ARE USED BY THE TESi: 


R ° 1 
FC . Q 
LC - 410 
4 * ° 0 
Lc’ - 814 
IC ° 1 
FT - 0 
FS a 0 


TEST 6 = SERVO ADDRESSING LOGIC NOISE GENERATOR TEST 


13:59 PAGE 26 
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SEQ 0022 


a a a a ee 
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9.8 


9.9 


IN THIS TEST A SEEK 1S DONE TO CYL “'NC’’ THEN A SEEK TO 

NC+4 THEN NC+1 THEN NC+5 THEN NC 42 THEN NC*5. NOW “'NC’’ 1S UPDATED 
BY ““IC’’ AND THE ABOVE SEQUENCE 1S REPEATED UNITL “LC IS 

EXCEEDED o* ANY OF THE ABOVE VALUES. THE ol VALUE OF “‘NC"’ 
ese T THE COMPLETION JF EACH SEEK COMMAND THE 

PROPER INDICATORS ARE EXAMINED TO ENSURE PROPER OPERATION. 


THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 


oO 
a 
 reeeveeee 


oo-fo°co-— 


TEST 7 = RANDOM SEEK TEST 


THIS TEST PERFORMS RANDOM SEEK OPERATIONS BETWEEN CYLINDERS ‘FC* 

"LC". AFTER EACH SEEK, THE POSITION OF THE DRIVE IS VERIFIED BY 
READING A SECTOR FROM THE CURRENTLY ADDRESSED CYLINDER AND TRACK. 

THE TRACK ADDRESS 1S INCREMENTED FOR EACH SEEK SO THAT VERIFICATION 

OF POSITIONING OCCURS USING EACH HEAD. TRACK ADDRESSES ARE INCREMENTED 
BETWEEN PARAMTERS ‘FT* AND ‘LT’. 


THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 


R = 5000 
FC - 0 
LC - 410 
?" - 0 
Lc" - 814 
FT = 0 
LT 18 


TEST 10 = SERVO SETTLE DOWN TEST 


THIS TEST VERIFIES THAT THE SERVO HAS SETTLED DOWN AND THAT 

THE DRIVE IS ON CYLINDER WHEN THE DRIVE INDICATES SEEK COMPLETE. 
RANDOM SEEKS ARE ISSUED BETWEEN CYLINDERS "NC1" AND ‘NC1+IC* 

("NC1" STARTS AT VALUE ‘FC'). AT THE COMPLETION OF 1000 (10) SEEKS, 
"NC1* IS INCREMENTED BY VALUE ‘IC* AND THE SEQUENCE IS REPEATED. 

THE TEST 1S COMPLETED WHEN ‘NC1° HAS BEEN INCREMENTED BEYOND ‘LC’. 


WHEN THE SEEK COMPLETES, THE PROGRAM READS THE DRIVE'S LOOK-AHEAD 
REGISTER (RPLA) 10 DETERMINE THE ADDRESS OF THE SECTOR ROTATING INTO 
POSITION. THE PROGRAM THEN ISSUES A WRITE HEADER AND DATA COMMAND 

FOR THAT SECTOR. IF THE DRIVE'S POSITIONER HAS NOT SETTLED DOWN OR 

IF THE POSITIONER IS NOT ON CYLINDER (IF THE DRIVE IS AN RPO4, THE 

OFF CYLINDER CONDITION MUST LAST FOR AT LEAST 800 US), THE DRivE 

WILL REPORT A ‘WRU' ERROR. (RPOS/6"S MAY ALSO REPORT ‘NHS’ ERROR UNDER 
ERRORS IN THIS TEST INDICATE THAT THE SERVO SYSTEM MAY NOT BE ADJUSTED 
CORRECTLY, THAT THE DRIVE 1S MALFUNCTIONING, OR THAT A PCAK WITH 
MARGINAL SERVO TRACKS IS MOUNTED ON THE DRIVE. 





SEQ aa 
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THIS TEST USES THE EXTENTION BITS IN THE LOOK-AHEAD REGISTER TO DETERMINE 
WHETHER OR NOT IT CAN PICK UP THE SECTOR ROTATING INTO POSITION. THE 
TEST 1S OPTIMIZED SUCH THAT IF THE DRIVE SIGNALS SEEK DONE WITHIN 

THE FIRST 80% OF THE SECTOR CURRENTLY UNDER THE HEAD, THE TEST WILL 

TRY TO ADDRESS THE NEXT SECTOR. BASED ON OBSERVATION, THE PROGRAM 

hg START THE OPERATION WITHOUT LOSING A REVOLUTION MOST OF 

H om 


THIS TEST IS VALID ONLY IF THE OPERATION IS STARTED WITHIN A FEW 
HUNDRED MICRO-SECONDS AFTER SEEK DONE OCCURS. THE NECESSARY TIME 
DEPENDENT PARAMETERS OCCUR WITHIN THE REQUIRED TIME RANGE FREQUENTLY 
ENOUGH TO PERMIT THIS TEST TO BE EFFECTIVE. 


THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 


R - 1 
FC - 0 
LC - 410 
re" - 0 
Lc’ - 814 
Ic - 100 
FT - 0 


9.10 TEST 11 = ALL SEEKS TEST 


THIS TEST VERIFIES THAT THE DISK DRIVE CAN SEEK FROM EACH CYLINDER 
TO ALL OTHER CYLINDERS. 


BEGINNING WITH CYLINDER ‘FC*, THE TEST SEEKS TO EACH CYLINDER 
BETWEEN ‘FC’ AND ‘LC’ FROM CYINDER ‘FC’. THE BEGINNING CYLINDER 
ADDRESS IS INCREMENTED AND THE TEST SEEKS BETWEEN THE NEW CYLINDER 
ADDRESS AND ALL CYLINDERS BETWEEN "FC" AND LC‘. THE SEQUENCE 
CONTINUES UNTIL ALL CYLINDERS HAVE BEEN CHECKED. 


THE FOLLOWING PARAMETERS ARE USED BY THIS TEST: 


R - 1 
FC - 0 
LC 410 
FC - 0 
Lc* - 814 
Ic - 1 
FT - 0 
FS = 0 


9.11 TEST 12 = ROTATIONAL SPEED TIMING TEST 


THIS TEST WILL START A SEARCH TO CYLINDER 0, TRACK 0, SECTOR 
0. AS SOON AS THE INTERRUPT OCCURS, THE GO BIT IS SET AGAIN 
AND THE OPERATION IS TIMED. THIS PROCEDURE 1S REPEATED 10 
TIMES THEN THE AVERAGE TIME 1S CALCULATED AND CHECKED TO 
ENSURE IT 1S WITHIN TOLERANCE: 


16.67 MS/REV + OR - 2% IF 60HZ 
16.67 MS/REV ¢ OR = 2.5% IF SOW. 
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THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 


R - 1 
FC - 0 
FC* - 0 
FT - 0 
FS ° 0 


9.12 TEST 13 = ONE CYLINDER SEEK TIMING TEST 


THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE THE 
CYLINDER BY ONE UNTIL THE INCREMENT 1S GREATER THAN THE 
CYLINDER ‘LC’, THEN REVERSE SEEK TO CYLINDER ‘FC’. THE 
TIME TO PERFORM EACH SEEK IS CHECKED TO ENSURE IT DOES NOT 
EXCEED THE MAXIMUM TIME PERMITTED FOR A ONE CYLINDER SEEK. 
THE TIME MUST BE LESS THAN 10MS. 


THE TEST USES THE FOLLOWING PARAMETERS: 


R od 1 
FC - 0 
Lc - 410 
FC’ - 0 
Lc" = 814 


9.13 TEST 14 = ACCESS TIME MEASUREMENT 


THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER 0 TO 
CYLINDER ‘LC", THEN A REVERSEK FROM CYLINDER ‘LC’ TO 


CYLINDER 0. BOTH SEEKS ARE TIMED AND CHECKED TO ENSURE THEY 
ARE WITHIN THE TOLERANCE ALLOWED FOR THE ACCESS TIME MEASURMENT. 


THIS SEQUENCE 1S REPEATED 128 TIMES (FOR A TOTAL 


OF 256 SEEKS). THE AVERAGE ACCESS TIME MUST BE LESS THAN 30 MS. 
CYLINDER ‘LC* DEFAULTS TO 136 (10) FOR AN RPO4/5 OR TO 255 (10) 


FOR AN RPO6. 
THE TEST USES THE FOLLOWING PARAMETERS: 


R - 1 
FC - 0 
LC - 136 “ 
‘ ° 0 
Lc’ a 255 


9.14 TEST 15 = MAXIMUM SEEK TIMING TEST 


THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER O TO 
CYLINDER ‘LC’, THEN A REVERSE SEEK FROM CYLINDER ‘LC’ TO 
CYLINDER 0. BOTH SEEKS ARE TIMED AND CHECKED TO ENSURE 
THEY ARE WITHIN THE TOLERANCE ALLOWED FOR THE MAXIMUM SEEK 
TIME. THIS SEQUENCE IS REPEATED 128 TIMES (FOR 


FOR RPO6'S. 
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A TOTAL OF 256 SEEKS). THE MAXIMUM SEEK TIME MUST BE LESS THAN 
54 MS. ‘LC’ DEFAULTS TO 410 (10) FOR RPO4/5'S AND TO 814 (10) 


SEQ 0025 
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THE TEST USES THE FOLLOWING PARAMETERS: 


R - 1 
FC > 0 
LC ° 410 
FC* - 0 
Lc’ - 814 


TEST 16 = SECTOR ADDRESSING TEST 


THIS TEST WRITES DATA INTO ALL SECTORS OF TRACK “FT’’. THE 

DATA WILL BE 256 WORDS OF THE SECTOR ADDRESS OF THE SECTOR 

BEING WRITTEN. A WRITE CHECK IS PERFORMED, THE BUFFER IS 

CLEARED (10 177400) AND THE DATA 1S READ AND COMPARED. THEN SECTOR 0 
1S REWRITTEN AND SECTORS 0 = 21 ARE WRITE CHECKED. THEN 

SECTOR 1 1S REWRITTEN AND SECTORS 0 - 21 ARE WRITE CHECKED. 

THIS REWRLTE AND WRITE CHECK PROCEDURE IS CONTINUED UP THROUGH 
REWRITE SECTOR 21 AND WRITE CHECK SECTORS 0-21. 


THE TEST USES THE FOLLOWING PARAMETERS: 


ans @ 
eee 
aoo— 


Cc 
c* 
T 
TEST 17 = TRACK ADDRESSING TEST 


THIS TEST WILL WRITE DATA IN THE FORM OF TRACK ADDRESSES 

IN CYLINDER “‘FC’’ SECTOR ‘‘FS'’ OF EVERY TRACK WITH EACH TRACK 
GEi TING ITS OWN TRACK ADDRESS. 

A WRITE CHECK 1S THEN PERFORMED ON EACH TRACK TO INSURE 

THE DATA IS VALID. THEN TRACK 0 IS REWRITTEN AND TRACK 1 
THROUGH TRACK 18 IS WRITE CHECKED. THEN TRACK 1 IS 
REWRITTEN AND TRACK 2 THROUGH TRACK 18 IS WRITE CHECKED. 
THIS PROCEDURE 1S CONTINUED UP THROUGH REWRITING TRACK 17 
AND WRITE CHECKING TRACK 18. 


THE TEST USES THE FOLLOWING PARAMETERS: 


aaa wD 
eee 
ooc— 


C 
c* 
S 
TEST 20 = DATA TEST 


THIS TEST PERFORMS DATA STORAGE AND RETRIEVAL ON CYLINDERS 
“FC THROUGH “'LC'’ BY THE INCREMENT “‘IC'’ USING THE DATA PATTERNS 
SPECIFIED. THE FOLLOWING SEQUENCE OCCURS FOR EACH CYLINDER: 

SET NT’ TO "FT" THEN REPEAT 2-4 UNTIL "NT > “LT 
URITE THEN WRITE CHECK "FS" THROUGH "LS" OF TRACK "NT 
READ THEN SOFTWARE COMPARE ‘FS’ THROUGH "LS" OF TRACK "NT" 
INCREMENT "NT" BY "IT" 
REPEAT STEPS 1-4 FOR EACH DATA PATTERN 
REPEAT STEPS 1-5 FOR “FC'’ THROUGH “'LC'’ ADVANCING BY "IC" 


we awe 
*e © @ @ 


SEQ 0026 
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IF A WRITE CHECK ERROR OCCURS THE ERROR 1S REPORTED AND 
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THE TRACK IN ERROR IS REWRITTEN AND CHECKED. THIS CHECK IS 


ACCOMPLISHED BY PERFORMING TWO(2) SUCCESSIVE ERROR FREE 


WRITE CHECKS. IF THE CHECK FAILS THE ERROR 1S REPORTED AS 
FATAL AND NO READ OCCURS 

FS DEFAULTS TO 1 AND LS DEFAUL 00 

PAT DEFAULTS 10 177777 (ALL POSSIBLE PATTERNS) 
THE POSSIBLE PATTERNS ARE: 


rrr Yr Yr YT) 
WOAWOA WA WOW W 


THE TEST USES THE FOLLOWING PARAMETERS: 


77776 


~N 
™N 


NWO NN NNN NSS 
NNN NAYS NN NSS 


1 

0 
410 
0 
814 
64 


052525 


066667 


000000 


a 
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tT » 0 
LT ° 18 
11 1 
FS = 1 
LS im 0 
PAT ° 177777 


TEST 21 = RANDOM ADDRESS AND RANDOM PATTERN TEST 


STARTING AT ‘‘FC’’ AND GOING THROUGH "LC THE DISK PACK 
1S WRITTEN WITH A RANDOM PATTERN. THE FIRST TWO WORDS 
OF EACH SECTOR WILL BE THE BASE OF THE RANDOM GENERATOR 
FOR THAT SECTOR. 

THE TEST THEN PERFORMS THE FOLLOWING SEQUENCE ‘'R"’ TIMES 
"“R'’ DEFAULTS TO 20,000. 


1) GENERATE A RANDOM ADDRESS 
2) WRITE A RANDOM PATTERN AT THE ADDRESS 
GENERATED IN 1. 
3) GENERATE A RANDOM ADDRESS 
4) READ THE SECTOR AT THE ADDRESS 
GENERATED IN 3. 
5) DO A SOFTWARE CHECK OF THE DATA READ IN 4. 
6) DO A WRITE CHECK OF THE DATA WRITTEN IN 2 
7) GENERATE A RANDOM ADDRRESS 
8) READ THE SECTOR AT THE ADDRESS 
GENERATED IN 7. 
9) DO A SOFTWARE CHECK OF THE DATA READ IN 8 
10) DO A WRITE CHECK OF THE DATA WRITTEN IN 2 
THE TEST USES THE FOLLOWING PARAMETERS: 
R - 20000 
FC - 0 
LC ° 410 
FC’ ° 0 
Lc" - 814 


TEST 22 = RPO4 ACCESS TIME ADJUSTMENT TEST 


THIS TEST PERFORMS SEEKS BETWEEN CYLINDERS 0 & 136 TG ALLOW THE 
OPERATOR TO ADJUST THE ACCESS TIME ON AN RPOS USING THE 

DDU. THE PROGRAM STALLS APPROXIMATELY 5 SECONDS BETWEEN SEEKS 
SO THAT THE ACCESS TIME INDICATORS ON THE DDU MAY BE OBSERVED. 


THE TEST USES THE FOLLOWING PARAMETERS: 


& - 5000 
FC - 0 
Lc - 136 
FC - 0 
the - 255 


PROGRAM LISTING 


7 Pe 


SEQ 0028 
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-TITLE CZRJAD RPO4/5/6 MECHANICAL AND READ/WRITE TEST 
s*COPYRIGHT (C) 1976,1978 
*DIGITAL EQUIPMENT CORP. 


epee aaataaae MASS. 01754 
: sPROGRAR BY C. HESS 


eTHIS PROGRAM WAS ASSEMBLED USING THE PDP=-11 MAINDEC SYSMAC 
; *PACKAGE (MAINDEC=11-DZQAC-C3), JAN 19, 1977. 


~SBTTL CONTROL SWITCH SETTINGS 


® 

* SWITCH STATE USE 

[—  —_c—K—HK—OHe OOO 38S SS SSS SSS SSS SSSSSSSSSESSESSESESEGESZSES 

* 15 0 WRITE PACK BEFORE TESTING (TEST 21) 

* 1 INHIBIT WRITING PACK BEFORE TESTING (TEST 21) 

. 14 0 NO STALL BETWEEN DRIVE FUNCTIONS 

* 1 STALL AFTER EVERY DRIVE FUNCTION 

* 13 0 USE SPECIFIC STALL TIME 

* 1 USE RANDOM STALL 

* 12 0 NO INCREMENTING STALL IN TEST 4 

® 1 DO INCREMENTING STALL IN TEST 4 

« 8 0 DO IMPLIED SEEKS WITH DATA TRANSFERS 

* 1 DO EXPLICIT SEEKS BEFORE DATA TRANSFERS 

* 7 0 DO "READ HEADER AND DATA’ IN TESTS 0-11 

* 1 DO EXPLICIT SEEKS IN TESTS 0-11 

’ 6 0 60 HZ 

* 1 50 HZ 

* 5 0 RUN WATCHDOG TIMER 

« 1 INHIBIT WATCHDOG TIMER 

* 0 0 TEST DRIVE(S) IN 22 SECTOR (16 BIT) MODE 

* 1 TEST DRIVE(S) IN 20 SECTOR (18 BIT) MODE 
.SBTTL OPERATIONAL SWITCH SETTINGS 

te 

* SWITCH USE 

Ce a se me Se 

* 15 HALT ON ERROR 

* 14 LOOP ON TEST 

. 13 INHIBIT ERROR TYPEOUTS 

® 10 BELL ON ERROR 

* 9 LOOP ON ERROR 

* & PRINT ERROR MESSAGE ON LINE PRINTER 

+ 7 READ CONTROL SWITCH SETTINGS FROM TTY 

* 6 INHIBIT TIME REPORTS (TESTS 12-15) 

* 5 REPORT ONE ERROR PER SECTOR (TESTS 16 & 17) 

® 4 INHIBIT WRITES (TEST 15) 

* 3 INHIBIT WRITE CHECKS (TEST 20) 

* 2 INHIBIT READ AND SOFTWARE COMPARES (TEST 20) 

® ] INHIBIT SOFTWARE COMPARES (TEST 20) 

e 0 PERFORM READ AFTER WRITE CHECK ERROR (TEST 20) 


Be Be Be Be Be Be Be Be Be Se Be Se Be He Hs Be He 


-SBTTL TRAP CATCHER 


i pees 
| 


SEQ 0030 
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1503 
1504 000000 
1505 
1506 
1507 
1508 000174 
1509 000174 000000 
1510 000176 000000 
1511 
1512 
1513 
1514 
1515 
1516 000200 
1517 000046 
1518 000046 017732 
1519 000052 
1520 000052 000000 
1521 000200 
1522 
1523 
1524 000200 
1525 
4 090200 000137 004674 
4 000204 000137 004730 
MP 000210 000137 004656 
a 000214 000137 004712 
S$ 000220 000137 004642 
1536 000224 000137 004626 
1537 
1538 
1539 
1540 
1541 001100 
1542 
1543 
1544 
1545 
1546 000011 
1547 000012 
1548 000015 
1549 000200 
1550 177776 
1551 
1552 177774 
1553 177772 
1554 177570 
1555 177570 
1556 
1557 
1558 000000 


TRAP CATCHER 


.=0 
7*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.#2,HALT™ 
>*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
Doasaraee” * CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: .WwORD 0 7; SOFTWARE DISPLAY REGISTER 
SWREG: ~-WORD 0 7; SOFTWARE SWITCH REGISTER 


-SBTTL ACT11 HOOKS 


s,eewrererrertererrrereereerrereeeTeerereNeeKerenennaeeeeeeAeeeene 


;HOOKS REQUIRED BY ACT11 
SSVPC=. 


P SAVE PC 
= 
SENDAD :1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
"woRD 0 ::2)SET LOC.52 TO ZERO 
" =$SVPC tS RESTORE PC 
-SBTTL STARTING ADDRESSES 
4200 = NORMAL START, INHIBIT PROGRAMMABLE DRIVES STANDALONE OR XXDP CHAIN 
JMP awSTARTI 
#204 = SELECT OPERATING PARAMETERS, INHIBIT PROGRAMMABLE DRIVES 
MP aNSTART2 
#210 = SELECT Ru /RPO4/5/6 ADDRESSES, DO NOT INHIBIT PROGRAMMABLE DRIVES 
MP aNSTAR 
#214 = COMBINATION OF 204 AND 210, DO NOT INHIBIT PROGRAMMABLE DRIVES 
JMP aMSTARTS 
:*220 = SARE AS 20C BUT DO NOT INWIBIT PROGRAMMABLE DRIVES 
MP aast 
:*224 = SANE AS 206 BUT DO NOT INHIBIT PROGRAMMABLE DRIVES 
JMP aWSTARTO 


-SBTTL BASIC DEFINITIONS 
ci a OF THE STACK POINTER *#* 1100 *ee 


STACK= 

-EQUIV EMT, ERROR ;;BASIC DEFINITION OF ERROR CALL 
-EQUIV I!0T, SCOPE ;:BASIC DEFINITION OF SCOPE CALL 
> *MISCELLANEOUS DEFINITIONS 

HT= 11 3;CODE FOR HORIZONTAL TAB 


LF= 12 >;CODE FOR LINE FEED 

CR= 15 3;CODE FOR CARRIAGE RETURN 

CRLF= 200 ;;CODE FOR CARRIAGE RETURN-LINE FEED 
PS= 177776 >;PROCESSOR STATUS WORD 

EQUIV PS,PSW 

STKLMT= 177774 7; STACK LIMIT REGISTER 

PIRQ= 177772 7;PROGRAM INTERRUPT REQUEST REGISTER 
DSWR= 177570 > HARDWARE SWITCH REGISTER 

DDISP= 177570 > HARDWARE DISPLAY REGISTER 


7 *GENERAL PURPOSE REGISTER DEFINITIONS 
RO= 29 7; GENERAL REGISTER 


SEQ 0031 
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1559 000001 Ri= %1 >;GENERAL REGISTER 
1560 000002 R2= %2 > ;GENERAL REGISTER 
1561 000003 R3= %3 7;GENERAL REGISTER 
1562 000004 RG4= 24 > ;GENERAL REGISTER 
1563 000005 RS= a5 > GENERAL REGISTER 
1564 000006 R6-= %6 ;;GENERAL REGISTER 
1565 000007 R7= x7 > GENERAL REGISTER 
1566 000006 SP= %6 s;STACK POINTER 
+ nef 000007 PC= %7 > ;PROGRAM COUNTER 
1569 s*PRIORITY LEVEL DEFINITIONS 
1570 000000 PRO= 0 : PRIORITY LEVEL 0 
1571 000040 PRI= 40 > PRIORITY LEVEL 1 
1572 000100 PR2= 100 > PRIORITY LEVEL 2 
1573 000140 PR3= 140 PRIORITY LEVEL 3 
1574 000200 PRG= 200 s PRIORITY LEVEL 4 
1575 000240 PRS= 240 >; PRIORITY LEVEL 5 
1576 000300 PRO=- 300 > PRIORITY LEVEL 6 
bg 4 000340 PR7= 340 > PRIORITY LEVEL 7 
1579 e'°SWITCH REGISTER’ SWITCH DEFINITIONS 
1580 100000 Swi5= 100000 
1581 040000 Swi4= 40000 
1582 020000 Swi3= 20000 
1583 010000 Swi2= 19000 
1584 004000 Swil= 4000 
1585 002000 Swi0= 2000 
1586 001000 swO9= 1000 
1587 000400 sw08= 400 
1588 000200 SwO7= 200 
1589 000100 sw06= 100 
1590 000040 sw0S= 40 
1591 000020 sw04= 20 
1592 000010 SwW03= 10 
1593 000004 SwO2= 4 
1594 000002 SwOl= 2 
1595 000001 Sw00= 1 
1596 -EQUIV SWwO09,SW9 
1597 -EQUIV SwO08,Sw8 
1598 -EQUIV SWO7,SW7 
1599 -EQUIV SWw06,SW6 
1600 -EQUIV Sw05S,SW5 
1601 -EQUIV SWO04,SW4 
1602 -EQUIV SwWO03,SW3 
1603 -EQUIV SWO2,SW2 
1604 -EQUIV SwO1,Sw1 
1605 -EQUIV Sw00,SWO 
1606 
1607 s*DATA BIT DEFINITIONS (BIT100 TO B1T15) 
1608 100000 B1T15= 10000 
1609 040000 BlT14= 40000 
1610 020000 B1113= 20000 
1611 010000 B!1T12= 10000 
1612 004000 B!lT11= 4000 
1613 002000 B1119= 2000 
1614 001000 B1109= 1000 




























CZRJAD.P11 


000001 


000064 
000240 


000100 


040006 


BASIC DEFINITIONS 


ooooooo°oo 
—O— WWE VO NO 


<xaennnnhunnh nh tt 


waowwowownaw 
ee ee ee et et ee et et 
and and and en ae an an ee en 


aia 
oo 
ee 
— 


;*BASIC ““CPU"’ TRAP VECTOR ADDRESSES 

ERRVEC= 4 7: TIME OUT AND OTHER ERRORS 

RESVEC= 10 7:RESERVED AND ILLEGAL INSTRUCTIONS 
TBITVEC=14 sa" ORT 

TRIVEC= 14 7; TRACE TRAP 

BPTVEC= 14 ;;BREAKPOINT TRAP (BPT) 

1OTVEC= 20 3; INPUT/OUTPUT TRAP (1OT) **SCOPE*e 
PWRVEC= 24 7;POWER FAIL 

EMTVEC= 30 7:EMULATOR TRAP (EMT) **ERROR*®* 
TRAPVEC=34 77'"TRAP’’ TRAP 

TKVEC= 60 7: TTY KEYBOARD vEcTOR 

TPVEC= 64 7: TTY PRINTER VECTOR 

PIRQVEC=240 3;PROGRAM INTERRUPT REQUEST VECTOR 


Ss eetereeeercererererererererererererererenaeeenarentaseraraneneee 


mn 
o 
& 
— 
< 
WOwmowawwwowm@—rwr—w 
tb ho = bs ee rs he 
ee ee ee ee ee ee oe or aoe | 
ooooocoooo°oo 
O—NMWEYONWO 
7 
wWowmwwowoww 


_— ee ee es bt oe 
mt at at at ht ot 
O— NWF YVAnWwoO 


-SBTTL RH11 REGISTERS 


s SMeeeererreeKereeeeeereeseeeLerersrererererearHeseseseaneeesenere 


;CONTROL AND STATUS REGISTER 1 (RPCS1) 


lE= 100 ; INTERRUPT ENABLE (BIT #6) 

RDY= 200 ;READY (BIT #7) 

Al6= 400 ;HIGH ORDER BUS ADDRESS BIT (BIT #8) 
Al7= 1000 HIGH ORDER BUS ADDRESS BIT (BIT #9) 
PSEL= 2000 ;PORT SELECT (BIT #10) 

MCPE= 20000 . 7MASSBUSS PARITY ERROR (BIT #13) 
TRE= 40000 TRANSFER ERROR (BIT #14) 

7S$C= 100000 SPECIAL CONDITION (BIT #15) 


;WORD COUNT REGISTER (RPWC) 
7 (EACH BIT IS CALLED BY BIT NUMBER) 


;BUS ADDRESS REGISTER (RPBA) 
7 (EACH BIT IS CALLED BY BIT NUMBER) 





A . 
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SEQ 0033 


———————— 


— 


SS Ss sss ss SSS sss sss est ssh sss sn 


ne 
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CZRJAD.P11 28-MAR-79 11:28 RH11 REGISTERS SEQ 0034 
10") sCONTROL AND STATUS REGISTER 2 (RPCS2) 
1673 000001 uS1= 1 7UNIT SELECT (BIT #0) 
1674 000002 uS2= 2 sUNIT SELECT (BIT #1) 
1675 000004 US4= 4 sUNIT SELECT (BIT #2) 
1676 000010 BAI= 10 sBUS ADDRESS INCREMENT INHIBIT (BIT #3) 
1677 sPAT= 20 sMASSBUS PARITY TEST (BIT #4) 
1678 000040 CLR= 40 sCLEAR (BIT #5) 
1679 000100 IR= 100 ; INPUT READY (BIT #6) 
1680 000200 OR= 200 ;OUTPUT READY (BIT #7) 
1681 000400 MPE= 400 sMASS BUS PARITY ERROR (BIT #8) 
1682 001000 MxF = 1060 ;MISSED TRANSFER ERROR (BIT #9) 
1683 002000 PGE= 2000 :PROGRAM ERROR (BIT #10) 
1684 004000 NEM= 4000 ;NON EXISTENT MEMORY (BIT #31) 
1685 010000 NED= 10000 sNON EXISTENT DRIVE (BIT #12) 
1686 020000 UPE= 20000 sUNIBUS PARITY ERROR (BIT #13) 
1687 040000 wCE= 40000 sWRITE CHECK ERROR (BIT #14) 
— 100000 DLT= 100000 ;DATA LATE (BIT #15) 
1690 ;DATA BUFFER REGISTER (RPDB) 
1691 ; (EACH BIT 1S CALLED BY BIT NUMBER) 
1692 
1693 
1694 ppeeeerererererererererererreerreretereneeKeneeenteeeeHTeneetETe 
1695 
1696 .SBTTL RPO4/5/6 REGISTERS 
1697 
1698 so tterteeererrererererercnverererereerenenanaeareneneReteneeerentes 
1699 
roe ;CONTROL AND STATUS 1 REGISTER. (#00) 
1 
1702 000001 GO= 1 360 BIT .BIT #0) 
1703 000002 Fl= 2 sFUNCTION CODE BIT #1 
1704 000004 F2= 4 sFUNCTION CODE BIT #2 
1705 000010 . f3= 10 sFUNCTION CODE BIT #3 
1706 000020 Faz 20 sFUNCTION CODE BIT #4 
1707 000040 F5= 40 sFUNCTION CODE BIT #5 
i 004000 DvA= 4000 sDEVICE AVAILABLE (BIT #11) 
4 sDRIVE STATUS REGISTER (RPDS1) (#01) 
1712 3DFS= 1 DRIVE FORWARD S''/SEC. (BIT #0) 
1713 000002 DFF20= 2 sDRIVE FORWARD 20°'/SEC. (BIT #1) 
1714 000004 DIGB= 4 :DRIVE TO INNER GUARD BAND (BIT #?) 
1715 000010 GRv= 10 3G0 REVERSE (BIT #3) 
1716 000020 DLO64= 20 sDIFFERENCE LESS THAN 64 (BIT &4) 
1717 000040 DE1= 40 sDIFFERENCE EQUALS 1 (BIT #5) 
1718 000100 vV= 100 ;VOLUME VALID (BIT #6) 
1719 000200 DRY= 200 sDRIVE READY (BIT #7) 
1720 000400 DPR= 400 ;DRIVE PRESENT (BIT #8) 
1721 001000 PGM= 1000 ;PROGRAMABLE (BIT #9) 
1722 -002000 LST= 2000 :LAST SECTOR TRANSFERRED (BIT #10) 
1723 004000 WRL= 4000 sWRITE LOCK (BIT #11) 
1724 010000 MOL = 10000 sMEDIUM ON@LINE (BIT #12) 
1725 020000 PIP= 20000 >POSITIONING OPERATION IN PROGRESS (BI! #14) 
1726 04000C ERR= 40000 sCOMPOSITE ERRCR (BI? #14) 


————EEE———————— | 


| 
— | 


ac 


Ce eS eS sss SSS 
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1727 100000 
1728 
1729 
1730 
1731 000001 
1732 000002 
1733 000004 
1734 000010 
1735 000020 
1736 000040 
1737 000100 
1738 000200 
1739 000400 
1740 001000 
1741 002000 
1742 004000 
1743 010000 
1744 020000 
1745 040000 
1746 100000 
1747 
1748 
1749 
1750 000001 
1751 000002 
1752 000004 
1753 000010 
1754 000020 
1755 000040 
1756 000200 
1757 
1758 
1759 
1760 000001 
1761 000002 
1762 000004 
1763 000010 
1764 000020 
1765 000040 
1766 000100 
1767 000200 
1768 
1769 
1770 
1771 
1772 
1773 
1774 000001 
1775 000002 
1776 000004 
1777 000010 
1778 000020 
1779 000040 
1780 000100 
1781 000200 
1782 000400 


RP04/5/6 REGISTERS 


ATA= 100000 sATTENTION ACTIVE (BIT #15) 
sERROR REGISTER #01 (RPERI) (#02) 

ILF= 1 s ILLEGAL FUNCTION (BIT #0) 

ILR= 2 sILLEGAL REGISTER (BIT #1) 

RMR= 4 SREGISTER MODIFICATION REFUSED (BIT #2) 
PAR= 10 :PARITY ERROR (BIT #3) 

FER= 20 sFORMAT ERROR (BIT #4) 

wCF= 40 WRITE CLOCK FAIL (BIT #5) 

ECH= 100 sECC HARD ERROR (BIT #6) 

HCE= 200 :HEADER COMPARE ERROR (BIT #7) 
HCRC= 400 sHEADER CRC ERROR (BIT #8) 

AOE = 1000 ;ADDRESS OVERFLOW ERROR (BIT #9) 
1AE= 2000 s INVALID ADDRESS ERROR (BIT #10) 
WLE= 4000 sWRITE LOCK ERROR (BIT #11) 

DIE= 10000 sDRIVE TIMING ERROR (BIT #12) 
OPI]= 20000 sOPERATION INCOMPLETE (BIT #13) 
UNS= 40000 sDRIVE UNSAFE (BIT #14) 

DCK= 190000 sDATA CHECK ERROR (BIT 15) 
sMAINTAINABILITY REGISTER (RPMR) (#03) 

DMD= 1 sDIAGINOSTIC MODE (BIT #0) 

MCLK= 2 sMAINTAINABILITY CLOCK (BIT #1) 
MINX= 4 sMAINTAINABILITY INDEX (BIT #2) 
MSTCK= 10 sMAINTAINABILITY SECTOR CLOCK (BIT #3) 
MRD= 20 sMAINTAINABILITY READ (BIT #4) 
MWR = 40 sMAINTAINABILITY WRITE (BIT #5) 
DISY= 200 sMAINTAINABILITY SYNC DETECTED (BIT #7) 
sATTENTION SUMMARY FPSEUDO-REGISTER (RPAS) (#04) 

AT0= 1 sDEVICE 0 (BIT #0) 

ATl= 2 :DEVICE 1 (BIT #1) 

ATl2= 4 sDEVICE 2 (BIT #2) 

AT3= 10 sDEVICE 3 (BIT #3) 

AT4= 20 :DEVICE 4 (BIT #4) 

ATS= 40 sDEVICE 5 (BIT #5) 

AT6= 100 sDEVICE 6 (BIT #6) 

Al7= 200 sDEVICE 7 (BIT #7) 


DESIRED SECTOR/TRACK ADDRESS REGISTER (RPDA) (#05) 
7; (EACH BIT IS CALLED BY BIT NUMBER) 


DRIVE TYPE REGISTER (RPDT) (#06) 


DTO0= 1 ;DRIVE TYPE NUMBER BIT 1 
DTO1= 2 DRIVE TYPE NUMBER BIT 2 
D102= 4 ;ORIVE TYPE NUMBER BIT 3 
D103= 10 DRIVE TYPE NUMBER BIT 4 
D104= 20 DRIVE TYPE NUMBER BIT 5 
D105= 40 ;DRIVE TYPE NUMBER BIT 6 
D106= 100 DRIVE TYPE NUMBER BIT 7 
D1O07= 200 DRIVE TYPE NUMBER BIT 8 
D108= 400 ;DRIVE TYPE NUMBER BIT 9 


SEQ 0055 


(a ce a a a 
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004000 
020000 
040000 
100000 


000001 


000200 
001000 


100000 


000001 


100000 


000001 


004000 


DRQ= 
MOH= 
TAP= 
NBA= 


4000 
20000 
40000 
100000 


Kk 3 
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sORIVE REQUEST REQUIRED (BIT #11) 
MOVING HEAD (BIT #13) 

;TAPE DRIVE (BIT #14) 

;NOT BLOCK ADDRESSED (BIT #15) 


;LOOK-AHEAD REGISTER (RPLA) (#07) 


7RPO4 ERROR REGISTER #2 (RPER2) 


wCU= 
CSF= 
WSU= 
CSU= 
MSE = 
TDF = 
TUF = 
FEN= 
WRU=. 
MHS= 
NHS= 
1KE= 
vu30= 
PLU= 
ACU= 


7RP05/6 


40000 
100000 


2 
100000 


EXTENSION 1 (BIT #0) 
sEXTENSION 2 (BIT #1) 
EXTENSION 3 (BIT #2) 
sEXTENSION 4 (BIT #3) 
EXTENSION 5 (BIT #4) 
EXTENSION 6 (BIT #5) 
SECTOR COUNT FIELD 0 (BIT #6) 


:SECTOR COUNT FIELD 1 (BIT #7) 
;SECTOR COUNT FIELD 2 (BIT #8) 
:SECTOR COUNT FIELD 3 (BIT #9) 
SECTOR COUNT FIELD 4 (BIT #10) 


TRACK FIELD 1 (BIT #11) 
TRACK FIELD 2 (BIT #12) 
;TRACK FIELD 3 (BIT #13) 
TRACK FIELD 4 (BIT #14) 
sTRACK FIELD 5 (BIT #15) 
(#10) 


WRITE CURRENT UNSAFE (BIT #0) 
;CURRENT SINK FA URE (BIT #1) 
WRITE SELECT UNSAFE (BIT #2) 
;CURRENT SWITCH UNSAFE (BIT #3) 
;MOTOR SEQUENCE ERROR (BIT #4) 
7 TRANSITIONS DETECTOR FAILURE (BIT #5) 
; TRANSITIONS UNSAFE (BIT #6) 
FAILSAFE ENABLED (BIT #7) 
WRITE READY UNSAFE (BIT #8) 
MULTIPLE HEAD SELECT (BIT #9) 
;NO HEAD SELECTION (BIT #10) 

; INDEX ERROR (BIT #11) 

> 30VOLT UNSAFE (BIT #12) 

;PLO UNSAFE (BIT #13) 

3AC UNSAFE (BIT #15) 


ERROR REGISTER #02 (RPER2) (#10) 


sWRITE CURRENT UNSAFE (BIT #0) 
CURRENT SINK FAILURE (BIT #1) 
sWRITE SELECT UNSAFE (BIT #2) 
CURRENT SWITCH UNSAFE (BIT #3) 
READ AND WRITE (BIT #4) 

7 TRANSITIONS DETECTOR FAILURE (BIT #5) 
; TRANSITIONS UNSAFE (BIT #6) 
ABNORMAL STOP (BIT #7) 

sWRITE READY UNSAFE (BIT #8) 
SMUTLTIPLE HEAD SELECT (BIT #9) 
NO HEAD SELECTION (BIT #10) 

> INDEX ERROR (BIT #11) 


SEQ 0036 
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CZRJAD.P11 28-MAR-79 1 
1839 020000 
1840 
1841 
1842 
1843 000001 
1844 000002 
1845 000004 
1846 000010 
1847 00002 
1848 000040 
1849 000200 
1850 002000 
1851 004000 
1852 010000 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 000001 
1866 000002 
1867 000010 
1868 000040 
1869 000100 
1870 040000 
1871 100900 
1872 
1873 
1874 
1875 000001 
1876 000002 
1877 000040 
1878 000100 
1879 020000 
1880 040000 
1881 100000 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 000101 
1893 000103 
1894 000105 


RP04/5/6 REGISTERS 


PLU= 20000 ;PLO UNSAFE (BIT #12) 

sOFFSET REGISTER (RPOF) (#11) 

OF25= 1 sOFFSET 25 MICRO INCHES (BIT #0) 
OFSO0= 2 ;OFFSET 50 MICRO INCHES (BIT #1) 
OFI00= 4 OFFSET 100 MICRO INCHES (BIT #2) 
OF200= 10 OFFSET 200 MICRO INCHES (BIT #3) 
OF400= 20 OFFSET 400 MICRO INCHES (BIT #4) 
OFB800= 40 ;OFFSET 800 MICRO INCHES (BIT #5) 
OFREV= 200 ;OFFSET NEGATIVE (REVERSE) (BIT #5) 
HC]= 2000 sHEADER COMPARE INHIBIT (BIT #10) 
ECI= 4000 sERROR CORRECTION CODE INHIBIT (BIT #11) 
FMT22= 10000 FORMAT BIT (BIT #12 


DESIRED CYLINDER ADDRESS (RPCA) (#12) 
7 (EACH BIT IS CALLED BY BIT NUMBER) 


sCURRENT CYLINDER ADDRESS (RPCC) (#13) 
7; (EACH BIT 1S CALLED By BIT NUMBER) 


SERIAL NUMBER REGISTER (RPSN) (#14) 
7 (EACK 1S CALLED BY BIT NUMBER) 


jRPO4 ERROR REGISTER #03 (RPER3) (#15) 


Psu= 1 :PACK SPEED UNSAFE (BIT #0) 
VUF= 2 [VELOCITY UNSAFE (BIT #1) 

UwR= 10 [ANY UNSAFE EXCEPT READ/WRITE (BIT #3) 
ACL= 40 :AC LOW (BIT #5) 

DCL= 100 :DC LOW (BIT #6) 

SK1= 40000 :SEEK INCOMPLETE (BIT #14) 

OcYL= 100000 :OFF CYLINDER (BIT #15) 

;RP05/6 ERROR REGIS™ER #03 (RPER3) (#15) 

pcu= 1 :DC UNSAFE (BIT #0) 

WAO= 2 sWRITE AND OFFSET (BIT #1) 

ACL= 40 [AC LOW (BIT #5) 

DCL= 100 :DC LOW (BIT #6) 

OPE= 20000 [OPERATOR PLUG ERROR (BIT #13) 

SkI= 40000 [SEEK INCOMPLETE (BIT #14) 

OCYL= 100000 [OFF CYLINDER ERROR (BIT #15) 


ECC POSITION REGISTER (RPEC1) (#16) 
; (EACH BIT IS CALLED BY B11 NUMBER) 


sECC PATTERN REGISTER (RPEC2) (#17) 
7 (EACH BIT IS CALLED BY BIT NUMBER) 


ppeeeeeeerereerteeeerererenereereeettereeeneeeeeereeeeeneneETi eee 
7OP CODE DEFINITIONS 
NOOP=101 


UNLOAD=103 
SEEK=105 


SEQ 0037 
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CZRJAD.P11 28-MAR-79 11:28 RP04/5/6 REGISTERS SEQ 0038 
1895 600107 RECAL=107 
1896 000111 DRVCLR=111 
1897 000113 RELEASE=113 
1898 000115 OF FSET=115 
1899 000117 RTC=117 
1900 000121 READIN=121 
1901 000123 PACK=123 
1902 000131 SEARCH=131 
1903 000151 WRCKD=151 
1904 000153 WRCKHD=153 
1905 000161 WRITE=161 
1906 000163 WRTHD=163 
1907 000171 READ=171 
1908 000173 READHD=173 
1909 000141 GETREG=141 
1910 000143 SETFORM=143 
194 000145 SELDRV=145 
1912 
eat sOTHER EQUATES 
4 
1915 177400 SCTRWC = -256. ;WORD COUNT FOR SECTOR 
1916 010066 FMT22=10000 sFORMAT 22 BIT 


CZRJAD RPOG/S/6 MECHANICAL 


CZRJAD.P11 


ggggesesessssssses 


WWW PN fu fe eo oo 


001160 
001162 


001216 


000 
000000 
000000 


15 
000012 
000615 


000377 


-SBTTL COMMON TAGS 


pe, *eteerrrerererrerererereererererereeeerenetereneteteteeeeteTeeee 


*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;*USED IN THE PROGRAM. 


-=1100 


SBDDAT: .WORD 


SAUTOB: .BYTE 
SINTAG: .BYTE 


SWR: ~ WORD 
DISPLAY: .WORD 
$TKS: 177560 
$TKB: 177562 
STPS: 177564 
$TPB: 177566 
SNULL: .BYTE 
SFILLS: .BYTE 
SFILLC: .BYTE 
STPFLG: .BYTE 
SREGAD: .WORD 


$REGO: .WORD 
$SREG1: .WORD 
$REG2: .WORD 
SREG3: .WORD 
$REG4: .WORD 
$REGS: .WORD 
STMPO: .WORD 


oOoooooo°o°oo-oCo°c°oo°ooo 


o°9 
ow 
—-=£ 
ww 
~~ 


Nm 


oOooCcoooo°ooO OC0O—-NoO 


<207><377><377> 
/?/ 


<15> 
<12> 
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;START OF COMMON TAGS 

;;CONTAINS PASS COUNT 

;;CONTAINS THE TEST NUMBER 

; CONTAINS ERROR FLAG 

>; CONTAINS SUBTEST ITERATION COUNT 
:: CONTAINS SCOPE LOOP ADDRESS 

>: CONTAINS SCOPE RETURN FOR ERRORS 
+: CONTAINS TOTAL ERRORS DETECTED 
>;CONTAINS ITEM CONTROL BYTE 
;;CONTAINS MAX. ERRORS PER TEST 
;;CONTAINS PC OF LAST ERROR INSTRUCTION 
;;CONTAINS ADDRESS OF ‘GOOD' DATA 
;;CONTAINS ADDRESS OF ‘BAD* DATA 
;;CONTAINS ‘GOOD’ DATA 

;;CONTAINS "BAD' DATA 

> ;RESERVED--NOT TO BE USED 


AUTOMATIC MODE INDICATOR 
3; INTERRUPT MODE INDICATOR 


7: ADDRESS OF SWITCH REGISTER 

; ADDRESS OF DISPLAY REGISTER 

3: TTY KBD STATUS 

7; TTY KBD BUFFER 

s: TTY PRINTER STATUS REG. ADDRESS 

s:TTY PRINTER BUFFER REG. ADDRESS 

3: CONTAINS NULL CHARACTER FOR FILLS 

3: CONTAINS # OF FILLER CHARACTERS REQUIRED 
:: INSERT FILL CHARS. AFTER A “LINE FEED" 
z7°"TERMINAL AVAILABLE’’ FLAG (B11<07>=0=YES) 
3: CONTAINS THE ADDRESS FROM 

s:WHICH (S$REGO) WAS OBTAINED 

:: CONTAINS (($REGAD)+0) 

>: CONTAINS ((S$REGAD)+2) 

:: CONTAINS ((S$REGAD) +4) 

>: CONTAINS (($REGAD) +6) 

7: CONTAINS (($REGAD)+10) 

>: CONTAINS ((S$REGAD)+12) 

3;USER DEFINED 

3;USER DEFINED 

3 USER DEFINED 

3:MAX. NUMBER OF ITERATIONS 

:;ESCAPE ON ERROR ADDRESS 

3;CODE FOR BELL 

3; ;QUESTION MARK 

3; CARRIAGE RETURN 

s:LINE FEED 


TAP PP REPRRSBERSRESASASERRRRRRR RRR SERRE RRRRR RRR RRR RRR RARER RRR RR RRR RE SE OS 


SCRLF: .ASCII 
$LF: .ASCIZ 
—tR = 


15 


SEQ 0039 


CZRIAD RPOG/5S/6 we Ne AND READ/WRITE TEST 
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Mwrrrnryenrnr 


001252 


001364 
001365 
001366 


001370 
001374 


28-MAR-79 11 
000012 
000000 
000000 
000000 


176 


000000 
000000 


000000 


000000 


006000 


700 
000254 000240 
000104 000106 


MACY11 30A(1052) 
TAGS 


LF s 12 
(.SwR: WORD 0 
SAVCSW: .WwORD 0 
CNTRLC: .WORD 0 
BUSADR: .WORD 0 
LPTAVL: .WORD 0 
DRVSEL: .WORD 0 
TSTNMS: WORD 37777,0 
OPNFLG: .WORD 0,0 
CLKSTA: .WORD 0 
TICKMS: WORD 16. 
TICKUS: .WORD 16666 
BYPASS: .WORD 0 
CHKDRV: .WORD 0 
DRVMSK: .WORD 0 
SVSTAT: .WORD 0 
CYL.RD: .WORD 9 
TRK.RD: WORD 0 
SEC.RD: .WORD 0 
CYL.DS: .wORD 0 
SEC.DS: .WORD 0 
TRK.DS: .WORD 0 
TIM.UP: .WORD 0 

~ WORD 0 

~ WORD 0 

~ WORD 0 

~WORD 0,0 

-wORD 0 
TIM.DN: .WORD 0 

~ WORD 0 

~WORD 0 

~ WORD 0 

WORD 0,0 

~ WORD 0 
TIM.PT: WORD 0 
WCEFLG: .WORD 0 
STALLO: .WORD 0 
SVADR ~ WORD 0,0 
SEKTMR: .WORD 0 
SEKCNT: .WORD 0 
DELTA ~ WORD 0 
TRCKWC: .WORD > vista *22.> 
STALL1: .WORD 
STALL2: .WORD io: 
STALL3: .WORD 5000. 
MXSTAL: .WORD 25. 
ERR.CT: .BYTE 100. 

-BYTE 0O 

sADDRESSES AND VECTORS 

RH.ADR: .WORD 176700 
RHVEC: “wORD ag 5#32, 
PKV: ~ WORD 104.106 


B 4 
24-MAY-79 
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CONTROL SWITCHES 


; PREVIOUS abst OF *C.SwWR' 


;CONTROL “'C'* F 


[GET ADDRESSES FROM THE TTY pe (O=NO, 
[LPT AVAILABLE STATUS (O=NO,1 
DRIVES SELECTED FOR TESTING 
:RUN TESTS 0-15 
sMODIFY TEST PARAMETER FLAGS 

CLOCK STATUS (O=NO CLOCK,+1=KWI1-P, 
;AND -1=KW11-L) 
316 MILLISECONDS PER CLOCK TICK 

; 16666 MIRCOSECONDS PER CLOCK TICK 


;DORIVE UNDER TEST 
;DRIVE MASK BI 
7STATUS/ERROR INDICATOR IS 
; SAVED HERE ON AN ERROR 
;CYLINDER READ 
TRACK READ 
SECTOR READ 
;CYLINDER DESIRED 
;SECTOR DESIRED 

; TRACK DESIRED 
MINIMUM TIME 
;NUMBER OF COUNTS BELOW MIN. 
MAXIMUM TIME 

;NUMBER OF COUNTS ABOVE MAX. LIMIT 
; TOTAL TIME OF ALL SEEKS 

; NUMBER AS. SEEKS PERFORMED 


7; MINIMUM 


T 


=YES) 


LIMIT 


IME 
NUMBER OF COUNTS BELOW MIN. LIMIT 


;MAXIMUM TIME 

;NUMBER OF COUNTS ABOVE MAX. 
:TOTAL TIME OF ALL SEEKS 
;NUMBER OF SEEKS PERFORMED 
;POINTS TO TABLE OF 
sFATAL WRITE CHECK ERROR FLAG (TEST 20) 
VARIABLE STALL (TEST 4) 

;SAVE DISK ADDRESS (TEST 22) 

;SEEK TIMER 
SEEK COUNTER 


(TEST 10 


TIMES 


) 


LIMIT 


-1=VES) 


TESTING RANGE FOR SERVO SETTLE DOWN TEST 
;WORD COUNT FOR A FULL TRACK IN 15 BIT MODE 
310 MILLISECONDS STALL (TEST 0-11) 


310 MILLISECONDS STALL (TEST 16-21) 


35 SEC STALL 
sMAX. INCREMENTING STALL ALLOWED IN TEST 4 
sNUMBER OF ERRORS ALLOWED IN TESTS 16 = 21 
sBEFORE GOING TO THE NEXT TEST 


;RH11-RH70 UNIBUS ADDRESS 
pRHI11-RH70 VECTOR ADDRESS AND PRIORITY 
;KwW1ll-P VECTOR ADDRESS 


SERVED 


(TEST 22) 


SEQ 0040 


eee 
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CZRJAD.P11 


001502 


001504 
001506 


001534 


001536 
001540 
001542 


28-MAR-79 1 
172540 


000200 


000000 


000000 


002350 
002344 
002572 


000102 


sBIT TABLE 
BITS: ~ WORD 
~ WORD 
WORD 
~ WORD 
~ WORD 
WORD 
~ WORD 
~ WORD 
~ WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
~ WORD 
WORD 
~ WORD 
WORD 
WORD 
WORD 
~ WORD 
WORD 
WORD 
.WORD 


bo oBe Bese sBesBesBesHesBesBesBeskesBesKesBesBesBesBesBesBesRe sissies oie +] 
ee ee ee es ot st st et tt et et tt et et et et se 
NOW EWNH—-OVFWNH—$ OOO VFwWN—-O 


; COMMON STORAGE 
PRM: WORD 


RPT: WORD 
C: . WORD 
Cz . WORD 
¢ WORD 
T: WORD 
T: WORD 
Ts - ~WORD 
$: ~ WORD 
L$: WORD 
PAT: WORD 
NCI: . WORD 
NC2: ~ WORD 


; TABLE OF PARAMETER POINTERS 
PRMPT: WORD PRMO 

WORD PRM 

WORD PRM2 


SoOodDdCOCOO0COCO°COoOOoOoO™ 
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;KW1l-P CONTROL AND os REG. 
:kwW11-P COUNT SET BUFFER 
:KW11=P COUNTER 


:KWIT=L VECTOR ADDRESS 
KWI1-L STATUS REGISTER 
TTY PRINTER STATUS 
; TTY PRINTER BUFFER 
;LINE PRINTER STATUS 
;LINE PRINTER BUFFER 


OR TEST PARAMETER 


;REPEAT COUNTS FOR ALL TESTS 
FIRST CYLINDER 

LAST CYLINDER 

> INCREMENT CYLINDER 
FIRST TRACK 

;LAST TRACK 

; INCREMENT TRACK 
FIRST SECTOR 

;LAST SECTOR 

PATTERN CODE 

NEW CYLINDER ADDRESS 
NEW CYLINDER ADDRESS 


CZRJAD RPOG/S/6 MECHANICAL 
28-MAR-79 11:2 


CZRJAD.P11 


00 
2101 
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rw, 


001604 


001606 


001634 


001636 
001640 
001642 
001644 
001646 
001650 
001652 
001654 
001656 
001660 
001662 


001664 


001742 


002414 


000000 


032767 


177777 


043146 


043205 


001125 


000001 


000310 


000000 


000632 


000000 


000000 
001456 
000000 


> TABL 


PRMM 


-WORD PRES 
-WORD PREG 
WORD PRES 
-WORD PRM6 
WORD PRM7 
WORD PRMIO 
WORD = PRM11 
WORD PRMI2 
WORD PRMI3 
~-WORD PRMI4 
«WORD PRMI5 
-WORD PRMI6 
«WORD PRMI7 
WORD PRM20 
-WORD PRM21 
«WORD PRM22 
«WORD 
PARAMETER UPPER LIMIT 
PRMLMT: .WORD 32767 
~-WORD 410. 
«WORD 410 
-WORD 814 
-WORD 814. 
-WORD 814. 
-WORD 18. 
-WORD 18. 
-WORD 18. 
WORD = 21. 
~WORD 21. 
«WORD 177777 
E OF MESSAGE POINTERS 
G: .WORD MSG.R 
-WORD MSG.FC 
~WORD MSG.LC 
-WORD MSGFCP 
~WORD MSGLCP 
-WORD MSG.IC 
-WORD MSG.FT 
-WORD MSG.LT 
«WORD MSG.1T 
-WORD MSG.FS 
-WORD MSG.LS 


STATUS/ERROR INDICATOR MESSAGES POINTER TABLE 
;DEFAULT VALUES OF TEST PARAMETERS 
1125,200.,410.,814.,0,0 ;RECAL/SEEK (10) 


$ 


DFLT: 


» WORD 


. WORD 


dD 4 
AND READ/WRITE TEST MACY11 SOA(1052) 24-MAY-79 
728 COMMON TAGS 


3377,100..0,128.,0,256.,0.0,0,0.0 :SEEK/SEEK (11) 


1177,1,0,410.,0,814.,1.0,0 ; INCREMENT SEEK (T2) 


13:59 PAGE 46 


SEQ 0042 


' 
| 
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2142 001750 + A A gone 000000 «WORD = 1177,10,0,256.,0,256.,1,0.0 ;STEPPING SEEK (13) 
00 000001 
2145 A: SAE A 000001 000000 «WORD = 1177,1,0,410.,0,814.,1,0,0 ;OSCILLATING SEEK (14) 
002006 
2148 ashy 001177 000001 000000 «WORD =1177,1,0,410.,0,814.,1,0.0 ;CONVERGING/DIVERGING SEEK (15) 
2036 Sona so 000001 000000 «WORD =1177,1,0,410.,0,814.,1,0,0 ;SERVO ADDRESSING LOGIC NOISE (16) 
ooseee 000337 011610 000000 «WORD 337,5000.,0,410.,0,814.,0.18. ;RANDOM SEEK TEST (17) 


000632 000000 001456 


000000 
002100 000177 000001 000000 WORD = 177,1,0,410.,0,814.,100.,0 ;SERVO SETTLE DOWN TEST (T10) 
002106 000632 000000 001456 - 


002120 001177 000001 000000 -WORD = 1177,1,0,410.,0,814.,1,0,0 sALL SEEKS TEST (111) 
002126 000632 00000 001456 


002142 001113 000001 000000 -WORD 1113,1,0,0,0,0 ;ROTATIONAL SPEED TIMING TEST (112) 

2165 002156 000037 000001 000000 WORD = 37,1,0,410.,0,814. sONE CYLINDER SEEK TIMING TEST (115) 
2167 002172 000037 000001 000000 -WORD 37,1,0,136.,0,255. sACCESS TIME MEASURMENT TEST (114) 
2169 002206 000037 000001 000000 -WORD 37,1,0,410.,0,814. MAXIMUM SEEK TIMING TEST (115) 

171 002222 000113 000001 000000 -WORD 113,1,0,0,0 SECTOR ADDRESSING TEST (116) 

73 002234 001013 000001 000000 «WORD 1013,1,0,0,0 ;TRACK ADDRESSING TEST (117) 

75 002246 007777 000001 000000 «WORD = 7777,1,0,410.,0,814.,64.,0,18..1.1,0,177777 ;DATA TEST (120) 
76 002254 000632 000000 001456 


77 002262 000100 000000 000022 
78 002270 000001 000001 000000 


POMPE ROM PR fu RNR fenuny 
es es ee ns ek et 8“ ot ot 
WN OO ODOne Fw —O 

oo o 
oo o 

mr 
Oo 
~ 
*- 
o 
i=) 
So 
Oo 
™Nm 
Nw 


bt A Shed eed teh obeah 4 


2 
21 
21 
21 
21 
21 
21 
31 
2180 002300 000037 047040 000000 «WORD  37,20000.,0,410.,0,814. ;EXERCISER (121) 
2181 002306 000632 000000 001456 
2182 002314 000037 011610 000000 WORD 37,5000.,0,136.,0,255. ;RPO4 ACCESS TIME ADJUSTMENT TEST (122) 
tt 002322 000210 000000 000377 

4 
2185 ;PARAMETER TABLES 
2186 
2187 ;RECAL/SEEK (10) 
2188 002330 001125 PRMO: .WORD 1125 
2189 002332 000310 WORD 200. 
2190 002334 000632 WORD 410. 
2191 002336 001456 WORD 814. 
2192 002340 000000 -WORD QO 
a 002342 000000 -WORD 0 
2195 ;SEEK/SEEK (11) 
2196 002344 003377 PRM1: WORD 3377 
2197 002346 000144 ~-wORD 100, 
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CZRJAD.P11 


002370 


2209 002372 


2217 002412 


2220 002414 


2228 002434 


2231 002436 


2239 002456 


2242 002460 


2250 002500 


2253 002502 


28-MAR-7 


000000 


001177 


00000C 


001177 
000001 


000000 


001177 


000000 


001177 


000000 


001177 


;STEPPING SEEK ( 
PRM3: 


;OSCILLATING SEE 
PRM4: » WORD 


; CONVERGING/DIVE 
PRMS: RD 


PRMO: . WORD 
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7 


o 
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J 
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. 


a SEEK 
PRM2: «WORD 
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«WORD 
. WORD 
» WORD 
«WORD 
- WORD 
. WORD 
. WORD 
«WORD 
«WORD 
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» WORD 
- WORD 
«WORD 
. WORD 
. WORD 
«WORD 
. WORD 
«WORD 
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ING SEEK (15) 
- WO 77 
« WORD 
«WORD 
. WORD 
. WORD 
. WORD 
«WORD 


SERVO ADDRESSIN 


—_ 
Oo 
* 
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gece NOISE GENERATOR (16) 


-_ 
~ser 


SEQ 0044 


ee ee | 


j 
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002522 


002524 


002562 


002564 


002620 


002622 


002634 


28-MAR-79 1 


000000 
000337 
011610 
000000 
000022 


000177 


000000 


001177 


000000 
000000 


001113 
000001 
000000 
000000 
000000 
000000 


000037 


000000 
001456 


; RANDOM 
PRM7: 


MACY11 30A(1052) 
N TAGS 


SEEK TEST (17) 
-WORD 337 


- WORD 
- WORD 
. WORD 
«WORD 
«WORD 
» WORD 
- WORD 


;SERVO SETTLE 


PRMI0: 


- WORD 
» WORD 
«WORD 
« WORD 
. WORD 
«WORD 
» WORD 
«WORD 


5000. 


0 
410. 
0 
814. 
0 
18. 


~e (110) 


sALL SEEKS TEST 
PRM11: 


«WORD 
. WORD 
. WORD 
» WORD 
. WORD 
«WORD 
. WORD 
«WORD 
- WORD 


« WORD 


;ONE CYLINDER 
PRM13: RD 


. WO 

. WORD 
. WORD 
«WORD 
. WORD 
» WORD 


SE 


x 
7 


G 4 
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MING TEST (T12) 


TIMING TEST (113) 
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2310 sACCESS TIME MEASURMENT TEST (114) 
2311 002636 000037 PRMI1G: .WORD 37 
2312 002640 000001 WO 1 
2313 002642 000000 -wORD 0 
2314 002644 000210 WORD 136 
2315 002646 000000 ~wORD 0 
sete 002650 00037 wORD 255. 
2318 :MAXIMUM SEEK TIMING TEST (115) 
2319 002652 000037 PRM15: .WORD 37 
2320 002654 000001 ~WwORD 1 
2321 002656 000000 -wORD 0 
2322 002660 000632 «WORD 410. 
2323 002662 000000 ~«wORD 0 
Sas 002664 001456 «WORD 814. 
2326 SECTOR ADDRESSING TEST (116) 
2327 002666 000113 PRM16: .WORD 113 
2328 002670 000001 -wORD 1 
2329 002672 000000 -wORD 0 
2330 002674 000000 ~-wORD 0 
sees 002676 000000 -wORD 0 
2333 TRACK ADDRESSING TEST (117) 
2334 002700 001013 PRM17: .WORD 1013 
2335 002702 000001 .wORD 1 
2336 002704 000000 -wORD 0 
2337 002706 000000 -wORD 0 
tt 002710 000000 .wORD 0 
2340 DATA TEST (120) 
2341 002712 007777 PRM20: .WORD 7777 
2342 002714 000001 . WORD 
2343 002716 000000 WORD 0 
2344 002720 000632 WORD 410. 
2345 002722 000000 ~-wORD 0 
2346 002724 001456 -WORD 814. 
2347 002726 000100 WORD 64. 
2348 002730 000000 -wORD 0 
2349 002732 000022 .WORD 18, 
2350 002734 000001 WORD 1 
2351 002736 000001 WORD 1 
2352 002740 000000 -wORD 0 
$333 002742 177777 PTRNIS: .WORD 177777 
4 
2355 SEMERCISER (121) 
2356 002744 000037 PRM21: .WORD 3/7 
2357 002746 047040 g -wORD 20000. 
2358 002750 000000 .wORD 0 
2359 002752 000632 -WORD 410. 
2360 002754 000000 ~-wORD 9 
ta 002756 001456 «WORD 814. 
6 
2363 RPDS ACCESS TIME ADJUSTMENT TEST (122) 
2364 002760 000037 PRM22: .WOR 37 


2365 002762 011610 “WORD 5000. 


OO 


1 4 
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2366 002764 000000 «WORD 0 
2367 002766 000210 -wORD 136. 
2368 002770 000000 -WORD 0 
2369 002772 000377 -WORD 255. 
2370 
2371 
2372 
2375 SEEK TIMING LIMITS 
2374 
2375 002774 043710 TPA: -WORD SG7 
2376 002776 000000 ~-WORD 0 
2377 003000 003142 -WORD 1634. 3 (16.67-2%) #82 
te 003002 003244 -WORD 1700. 3(16.6742%) 002 
2380 003004 043710 17B: ~-WORD SG7 
2381 0035006 000000 -WORD 0 
2382 003010 003131 «WORD 1625. 3(16.67-2.52%) ##2 
tty 003012 003255 «WORD 1709. 7(16.6742.5%) #02 
2385 003014 043742 110: ~WORD MSGIOA 
2386 003016 044011 WORD ™SG10B 
2387 003020 000000 -WORD 0 3NO LOWER LIMIT 
Sees 003022 001750 -wORD 1000. 3 (73) 002 
2390 003024 044026 Ti: -WORD MSGIIA 
2391 003026 044074 -WORD MSGIIB 
2392 003030 000000 -WORD 0 3NO LOWER LIMIT 
tat 003032 012574 -wORD 5500. 3 (28¢2) 002 
2395 003034 044111 Tle: -WORD MSGI2A 
2396 003036 044153 -WORD SG12B 
2397 003040 000000 -wORD 0 3NO LOWER LIMIT 
Sane 003042 012574 -WORD 5500. 3(50¢2) #2 
2400 0035044 003104 PAT.PT: .WORD PATO ; TABLE OF POINTERS WHICH POINT TO THE 
2401 003046 003144 -WORD = PATI PATTERNS USED BY THE DATA TEST 
2402 003050 003204 -WORD PAT2 
2403 003052 003244 -WORD PATS 
2404 003054 003304 -WORD PATS 
2405 003056 003344 -WORD PATS 
2406 003060 003404 -WORD PAT6 
2407 003062 003444 -WORD PAT7 
2408 003064 003504 «WORD PATS 
2409 005066 005544 -WORD PAT9 
2410 003070 003604 -WORD PATIO 
2411 003072 003644 «WORD = PAT11 
2412 003074 003704 «WORD PATI2 
2413 003076 003744 -WORD PAT13 
2414 003100 004004 -WORD PATI4 
seks 903102 004044 -WORD PATIS 
416 
2417 ;PATTERNS 0 THRU 15 
2418 
2419 003104 165555 PATO: .WORD 165555 SPATTERN 0 
2420 003106 133333 -WORD 153333 
2421 003110 165555 -WORD 165555 


SS 


a 





CZRJAD.P 


Pli 


WNRNNN a= 
OG fFNOC fw 


003200 
003202 


003204 


003242 
003244 


003262 
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177777 


177776 
177774 


000000 
000000 


000000 
000000 


PATI: 


PAT2: 


PAT3: 


3 pleat tenets at AND READ/WRITE TEST MACY11 30A(1052) 
1:28 COMMON TAGS 


Oo a se 
WWAWAWAWAWEWO WwW 


000000 
000000 


000900 
000900 
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PATTERN 1 


PATTERN 2 


PATTERN 3 


SEQ 9048 


j 
NN ee ee 


eee 


533 003434 007417 “WORD 007417 


K 4 
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2478 003264 177777 WORD 177777 
2479 003266 177777 «WORD 177777 
2480 003270 000000 WORD 00000 
2481 00 177777 WORD 177777 
2482 003274 000000 WORD 000000 
2483 003276 177777 «WORD 177777 
2484 003300 000000 -WORD 000000 
et 003302 177777 WORD = 177777 
2487 003304 000000 PAT4: .WORD 000000 ;PATTERN 4 
2488 003306 010421 -WORD 010421 
2489 003310 021042 WORD 021042 
2490 003312 031463 WORD 071463 
2491 003314 042104 WORD 042104 
2492 003316 052525 WORD 052525 
2493 003320 063146 WORD 063146 
2494 003322 073567 WORD 073567 
2495 003324 104210 WORD 104210 
2496 003326 114631 WORD 114631 
2497 003330 125252 WORD 125252 , 
2498 003332 135673 WORD 135673 
2499 34 146314 WORD 146314 
2 003336 156735 WORD 156735 
2501 003340 167356 -WORD 167356 
sont 003342 177777 «WORD = 177777 
2504 003344 052525 PATS: .WORD 052525 ;PATTERN 5 
2505 003346 052525 WORD 052525 
2 50 052525 WORD 052525 
2507 003352 125252 WORD 125252 
2508 003354 125252 WORD 125252 
2509 003356 125252 WORD 125252 
2510 003360 052525 WORD 052525 
2511 003362 052525 WORD 052525 
2512 003364 125252 WORD 125252 
2513 003366 125252 WORD 125252 
2514 003370 052525 WORD 052525 
2515 003372 125252 WORD 125252 
2516 003374 052525 WORD 052525 
2517 003376 125252 WORD 125252 
2518 003400 052525 -WORD 052525 
4h 003402 125252 WORD 125252 
2521 003404 007417 PAT6: .WORD 007417 ;PATTERN 6 
2522 003406 007417 WORD 007417 
2523 003410 007417 WORD 007417 
2524 003412 170360 WORD 170360 
2525 003414 170360 WORD 170360 
2526 003416 170360 WORD 170360 
2527 003420 007417 WORD 007417 
2528 003422 007417 WORD 007417 
2529 003424 170360 WORD 17036C 
2530 003426 170360 WORD 170360 
2531 003430 007417 WORD 007417 
J 
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CZRJAD.P11 


003542 
003544 


003602 
003604 
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170360 
007417 
170360 


026455 


100000 
177776 


PAT7: 


PAT8: 


PATS: 


PAT10: 


«WORD 
. WORD 
- WORD 


170360 
007417 
170360 


—_—OoO—-0Oo—- Oo - 00 — — = 


AAWAWAWEWAWEWOWO VMMYWIN VIN MUI rh ww 


— —s) — es se a ss ss ss 


100000 
177776 
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ZPATTERN 7 


PATTERN 8 


PATTERN 9 


PATTERN 10 


SEQ 0050 


CZRJAD RPOG/5/6 MECHANICAL AND READ/WRITE TEST MACY11 30A(1052) 
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CZRJAD.P11 28-MAR-79 11: 
2590 177775 
2591 003610 177775 
2592 003612 177767 
2593 003614 177757 
2594 003616 177737 
2595 003620 177677 
2596 3622 177577 
2597 003624 177377 
2598 003626 176777 
2599 3630 175777 
2600 003632 173777 
2601 003634 167777 
2602 003636 157777 
2603 003640 137777 
2604 3642 077777 
2605 
2606 003644 172666 
2607 003646 155555 
2608 003650 172666 
2609 003652 155555 
2610 003654 172666 
2611 003656 155555 
2612 3660 172666 
2613 003662 155555 
2614 3664 172666 
2615 003666 155555 
2616 003670 172666 
2617 003672 155555 
2618 003674 172666 
2619 003676 155555 
2620 003700 172666 
2621 003702 155555 
2622 
2623 003704 077777 
26246 003706 137777 
2625 003710 157777 
2626 003712 167777 
2627 003714 173777 
2628 003716 175777 
2629 003720 176777 
2630 003722 177377 
2631 003724 177577 
2632 003726 177677 
2635 003730 177737 
2634 003732 177757 
2635 003734 177767 
2636 003736 177773 
2637 003740 177775 
2638 003742 177776 
2639 
2640 003744 153335 
2641 003746 066667 
2642 003750 153333 
26435 003752 066667 
2644 003754 153333 
2045 003756 066667 


PATI1: 


PATI2: 


PAT13: 


SN NN NAY OO SINS 
SN NN NS SAY NNN 
SN NSN NSN NS NS NS NS NUON 
SNS NS NS NS NS NS SSS NS SU 


5555 
555 


ce ed ed a ss ss a 


NWN NNN NSO ANS NI NI NSIS SYN NS AIUO SNS 
uw Nm 
uw 
w 
w 


NNNNN 
~N 
N 


NNNNNNINOUWNSNNS OU 
~ 
~N 
~N 


066667 
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PATTERN 12 


;PATTERN 13 
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SEQ 0051 
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2646 003760 153333 -WORD 153333 
2647 005762 066667 -WORD 066667 
26468 003764 15533533 -WORD 153333 
2649 003766 066667 -WORD 066667 
2650 003770 153333 -WORD 153333 
2651 003772 066667 -WORD 06666 
2652 003774 153333 WORD 153333 
2653 003776 066667 -WORD 066667 
2654 004000 155333 «WORD 153333 
ote 004002 066667 -WORD 066667 
2657 004004 009000 PATI4: .WORD 000000 sPATTERN 14 
2658 0046006 177777 WORD 177777 
2659 004010 177777 «WORD 77777 
004012 177777 -WORD = 177777 

2661 004014 177777 «WORD 177777 

2 006016 %7:)777 -WORD = 177777 
2663 004020 77777 -WORD = 177777 
2664 004022 177777 WORD 177777 
2665 004024 177777 WORD 177777 
2666 0046026 177777 WORD 177777 
oo 004030 177777 -WORD 177777 
2669 0040352 177777 WORD 177777 
2670 004034 177777 WORD 177777 
2671 177777 -WORD 177777 
sors 004040 177777 WORD 177777 
thy 004042 177777 WORD = 177777 
eo7& 906044 177777 PATI5: .WORD 177777 ;PATTERN 15 
2677 046 G00C0 -WORD 000000 
2678 004050 000000 -WORD 000000 
2679 000000 WORD 000000 
2680 004054 000000 WORD 000000 
2681 004056 000000 WORD 000000 
2682. 004060 000000 WORD 000000 
2683 004062 000000 -WORD 000000 
2684 004064 000000 -WORD 000000 
2685 004066 000000 -WORD 000000 
2686 004070 000000 WORD 000000 
2687 004072 000000 wORD 000000 
2688 004074 000000 -WORD 000000 
2689 004076 000000 -wORD 000000 
2690 004100 000000 -WORD 000000 
ed 004102 000000 -WORD 000000 
a DPB (DATA PARAMETER BLOCK) 
694 
2695 004104 000 DPB.A: .BYTE 0 :(0) DRIVE NUMBER 
2696 004105 000 -BYTE 0 3(1) OFFSET VALUE OR FMT22, ECI, AND HCI 
2697 004106 000 -BYIE 0 ;(2) COMMAND 
2698 004107 000 -BYTE 0 :(3) PSEL AND A17 AND Al6 
2699 004110 000000 WORD 0 :(4) WORD COUNT (MUST BE NEG.) 
2700 004112 050202 -WORD BUFFER ;(6) BUFFER ADDRESS OR 


2701 REGISTER TABLE POINTER 
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2702 0046114 000 -BYTE 0 (10) SECTOR ADDRESS OR 
2703 sFIRST REG. INDEX 
2704 004115 000 BYTE 0 :(11) TRACK ADDRESS OR 
2705 SLAST REG. INDEX 
2706 004116 000000 -wORD 6 (12) CYLINDER ADDRESS 
2707 004120 004204 WORD RP.REG :(16) ERROR TABLE POINTER 
2708 POINTS TO THE FIRST OF TWENTY 
2709 [LOCATIONS OF WHERE THE DRIVER 
2710 :1S TO STORE THE RH11/RPO4 
2711 “REGISTERS ON AN ERROR. IF LEFT 
2712 sZERO REGISTERS ARE NOT SAVED. 
2713 004122 000000 .wOoRD 0 :(16) STATUS/ERROR INDICATOR 
2714 O11 igete7ennen OCCURRED 
2715 :B1107=1=>DONE 
2716 :B1114-B1T09 AND 81106-81105 
ori s INDICATE TYPE OF ERROR 
2719 004124 000 DPB.B: .BYTE 0 7(0) DRIVE NUMBER 
2720 004125 000 BYTE 0 :(1) OFFSET VALUE OR FMT22, ECI, AND HCi 
2721 004126 000 -BYTE 0 :(2) COMMAND 
2722 004127 000 BYTE 0 :(3) PSEL AND A17 AND Al6 
2723 004130 177776 . «WORD -2 =(4) WORD COUNT (MUST BE NEG.) 
2724 004132 050202 WORD BUFFER :(6) BUFFER ADDRESS OR 
2725 ;REGISTER TABLE POINTER 
2726 0046134 000 BYTE 0 :(10) SECTOR ADDRESS OR 
2727 “FIRST REG. INDEX 
2728 004135 000 BYTE 0 :(11) TRACK ADDRESS OR 
2729 SLAST REG. INDEX 
2730 004136 000000 -wORD 0 :(12) CYLINDER ADDRESS 
2731 004140 004204 .WORD RP.REG :(14) ERROR TABLE POINTER 
2732 POINTS TO THE FIRST OF TWENTY 
2733 sLOCATIONS OF WHERE THE DRIVER 
2734 :1S8 TO STORE THE RH11/RP04 
2735 sREGISTERS ON AN ERROR. IF LEFT 
2736 ZERO REGISTERS ARE NOT SAVED. 
2737 004142 000000 .wORD 0 : 16) STATUS/ERRCR INDICATOR 
2738 B1115=1=>ERROR OCCURRED 
2739 $1 107=1=>DONE 
2740 :B1114-B1T09 AND BIT06-B1T03 
iat INDICATE TYPE OF ERROR 

4 

2743 004144 000 DPB.C: .BYTE 0 :(0) DRIVE NUMBER 
2744 004145 000 BYTE 0 :(1) OFFSET VALUE OR FMT22, ECI, AND HCI 
2745 004146 000 BYTE 0 £2) COMMAND 
2746 004147 009 BYTE 0 :(3) PSEL AND A17 AND Al6 
2747 004150 177776 WORD =2 =(4) WORD COUNT (MUST BE NEG.) 
2748 004152 050202 .wORD BUFFER :(6) BUFFER ADDRESS OR 
2749 ;REGISTER TABLE POINTER 
2750 004154 000 BYTE 0 (10) SECTOR ADDRESS OR 
2751 sFIRST REG. INDEX 
2752 004155 000 BYTE 0 :(11) TRACK ADDRESS OR 
2753 AST REG. INDEX 
2754 004156 000000 .wORD 0 (12) CYLINDER ADDRESS 
2755 004160 004204 WORD RP. REG >(14) ERROR TABLE POINTER 
2756 >POINTS TO THE FIRST OF TWENTY 
2757 sLOCATIONS OF WHERE THE DRIVER 
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2758 21S TO STORE THE RH11/RPO4 
2759 sREGISTERS ON AN ERROR. IF LEFT 
2760 sZERO REGISTERS ARE NOT SAVED. 
2761 004162 000000 .wORD 0 >(16) STATUS/ERROR INDICATOR 
2762 sBIT1S=1=>ERROR OCCURRED 
2763 :B1107=1=>DONE 
2764 :B1114-BIT09 AND B1106-B1T03 
g7es : INDICATE TYPE OF ERROR 
2767 004164 000 DIADPB: .BYTE 0 :(0) DRIVE NUMBER 
2768 004165 000 -BYTE 0O 7(1) OFFSET VALUE OR FMT22, ECT, AND HCI 
2769 004166 000 .BYTE 0 7 (2) COMMAND 
2770 004167 000 BYTE 0 :(3) PSEL AND A17 AND Al6 
2771 004170 000000 .wORD 0 :(4) WORD COUNT (MUST BE NEG.) 
2772 004172 050202 .wORD BUFFER :(6) BUFFER ADDRESS OR 
2773 SREGISTER TABLE POINTER 
2774 004174 00c .BYTE 0 :(10) SECTOR ADDRESS OR 
2775 sFIRST REG. INDEX : 
2776 004175 000 BYTE 0 :(11) TRACK ADDRESS OR 
2777 sLAST REG. INDEX 
2778 004176 000000 ~wORD 0 -(12) CYLINDER ADDRESS 
2779 004200 004204 .WORD RP.REG > (14) ERROR TABLE POINTER 
2780 :POINTS TO THE FIRST OF TWENTY 
2781 sLOCATIONS OF WHERE THE DRIVER 
2782 :1S TO STORE THE RH11/RP04 
2783 sREGISTERS ON AN ERROR. IF LEFT 
2784 :ZERO REGISTERS ARE NOT SAVED 
2785 004202 000000 .wORD 0 :(16) STATUS/ERROR INDICATOR 
2786 *BITIS=1=>ERROR OCCURRED 
2787 :B1107=1=>DONE 
2788 :B1T14-B1T09 AND B1T06-B1103 
2789 s INDICATE TYPE OF ERROR 
2790 
2791 
2792 
cor 7SAVE RH11/RPO4 REGISTERS HERE ON ERROR 

4 
2795 004204 000000 RP.REG: .WORD 0 :RPCS1 (776700) CONTROL & STATUS #1 
2796 004206 000000 ~wORD 0 :RPWC (776702) WORD COUNT 
2797 004210 000000 “wORD 0 >RPBA (776704) BUS ADDRESS 
2798 004212 000000 .WwORD 0 :RPDA (776706) DESIRED SECTOR/TRACK 
2799 004214 000000 .wORD 0 sRPCS2 (776710) CONTROL & STATUS #2 
2800 004216 000000 WORD 0 :RPDS1 (776712) DISK STATUS 
2801 004220 000000 ~WORD 0 *RPERI (776714) ERROR REG. #1 
2802 004222 000000 .wORD 0 =RPAS (776716) ATTENTION SUMMARY 
2803 004224 000000 WORD 0 :RPLA (776720) LOOK AHEAD 
2804 004226° 000000 «WORD  0O- =RPDB (776722) DATA BUFFER 
2805 004230 000000 .wORD 0 “;RPMR (776724) MAINTAINABILITY. 
2806 004232 000000 .wORD 0 sRPDT (776726) DRIVE TYPE 
2807 004234 000000 WORD 0 =RPSN (776730) SERIAL NUMBER 
2808 004236 000000 -WORD 0 sRPOF (776732) OFFSET 
2809 004240 000000 -wORD 0 sRPCA (776734) DESIRED CYLINDER 
2810 004242 000000 .wORD 0 >RPCC (776736) CURRENT CYLINDER 
2811 004244 000000 .wORD 0 sRPER2 (776740) ERROR REG #2 
2812 0042466 000000 .wORD 0 =RPER3 (776742) ERROR REG #3 
281% 004250 000000 .wORD 0 “RPEC1 (776744) ECC POSITION 


' 


a a pe 
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CZRJAD.P1) 


004252 


004 304 


000000 


045212 


045755 


- WORD 


; STATUS/ERROR 
STATBL: .WORD 
«WORD 





MACY11 30A(1052) 
TAGS 


0 


 aeente POINTER TABLE 
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sRPEC2 (776746) ECC PATTERN 


OFFLINE OR UNSAFE DRIVE REQUESTED 
UNLOAD DRIVE REQUESTED 

PERSISTENT UNSAFE 

PARITY ERROR OCCURRED 

[FATAL PARITY ERROR 

;SOFTWARE TIMEOUT ON THIS DRIVE 
;SOFTWARE TIMEOUT ON ANOTHER DRIVE 
ERROR OCCURRED DURING 1/0 OPERATION 
ERROR OCCURRED DURING NON-1/0 OPERATION 
UNSAFE OCCURRED 

;AUTOMATIC RECALIBRATE SEQUENCE OCCURRED 
DRIVE HAS NOT RESPONDED TO PORT REQUEST 
;DRIVE HAS BECOME NONEXISTENT 








SEQ 0055 


ee 


-. 
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004 306 


004 306 
004310 
004312 
004314 


004316 
004320 
004322 
004324 


004326 
004330 
004332 
004334 
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044333 
046013 
047374 
050026 


044376 
046030 
047400 
050032 


044434 
046116 
047416 
050036 


ERROR POINTER TABLE 
-SBTTL ERROR POINTER TABLE 
3*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 


:*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE Layo BI - PERTINENT. 


> *NOTE!: 1f SiTEMB 1S 0 THE ONLY PERTINENT DATA IS (SERR 
: *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
:* EM ;;POINTS TO THE ERROR MESSAGE 
be DH ;;POINTS TO THE DATA HEADER 
.* DT ;;POINTS TG THE DATA 
;* DF 3;POINTS TO THE DATA FORMAT 
SERRTB: 


>*EM AND DH ARE ASCIZ MESSAGES, DT IS A STRING OF WORDS THAT POINT TO THE 
;*DATA TO BE TYPED AND DF IS A STRING OF DATA THAT TELL HOW THE DT WORDS 
;*ARE TO BE TYPED. IF ANY OF THE POINTERS ARE NOT NEEDED FOR A PARTICULAR 
;*ERROR IT 1S REPLACED WITH A ZERO. 

>*EACH OF THE ITEMS BELOW REFER TO THE ERROR NUMBER AND INDICATE 

;*THE INFORMATION THAT WILL BE TYPED WHEN THE ERROR OCCURS. 

;*UNLESS STATED OTHER ALL NUMBERS ARE OCTAL 


;* ERROR ITEM 1 

;¢ RH11 INTERRUPT OCCURED (RPAS = 0) 
td ERR PC RPAS 

;* SERRPC $REGS 


* ERROR ITEM 2 

e UNEXPECTED ATTENTION OCCURRED 

® ERR PC DRIVE RPAS RPDS1 ~=RPER! RPER2 RPERS 

* SERRPC $REG1 $REG3 RPERRS RPERRS*+2 RPERRS*4 RPERRS*6 


;* ERROR ITEM 3 

7° MASSBUS PARITY ERROR (MCPE=1) 
* TEST ERR PC ADDRESS DATA 

* STMPO SERRPC RD.ADR RD.WRD 


;* ERROR ITEM 4 
:* MASSBUS PARITY ERROR (PAR=1) 
3@ TEST ERR PC ADDRESS GDDATA BDDATA 


SEQ 0056 


ee ee ee oe 
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CZRJAD.P11 28-MAR-79 1 
2886 
2887 
2888 004336 044471 
2889 004340 046153 
2890 004342 047426 
2891 004344 050042 
2892 
2893 
2894 
2895 
2896 
2897 
2898 004346 044525 
2899 004350 046030 
2900 004352 047400 
2901 004354 050032 
2902 
2903 
2904 
2905 004356 000000 
2906 004360 000000 
2907 004362 000000 
2908 004364 000000 
2909 
2910 
2911 
2912 004366 000000 
2913 004370 000000 
2914 004372 000000 
2915 004374 000000 
2916 
2917 
2918 
2919 
2920 
2921 
2922 004376 044561 
2923 004400 046222 
2924 004402 047460 
2925 004404 050046 
2926 
2927 
2928 
2929 
2930 
2931 
2932 004406 044637 
2933 004410 046241 
2934 004412 047464 
2935 004414 050052 
2936 
2937 
2938 
2939 
2940 


ERROR POINTER TABLE 
ad STMPO 8 «SERRPC WRT.ADR WRT.WD = RD.WRD 


ERROR ITEM 5 
ADDRESS PLUG CHANGE BIT SET 
ERR PC DRIVE RPAS RPDS! RPERI RPER2 RPERS 
SERRPC SREG] S$REG3 RPERRS RPERRS*2 RPERRS*+4 RPERRS*+6 


3* ERROR ITEM 6 -- NOT USED 


0 
0 
0 
0 


7* ERROR ITEM 7 -- NOT USED 


0 
0 
0 
0 


* ERROR ITEM 10 

* RH11/RP04/5/6 FAILED TO RESPOND 10 ADDRESSING 
* RPCS1 ERR PC 

* RH.ADR SERRPC 


ERROR ITEM 11 
DRIVE SELECTED 1S NOT ONLINE 
DRIVE ERR PC 
SREG2 SERRPC 


EM11 
DH11 
D111 
DFI1 


* ERROR ITEM 12 
° IMPROPER HEADER DATA 
* TEST ERR PC TST PC DRIVE CYLNDR TRACK SECTOR 


ee ee ee 
es ees 


STMPO «SERRPC SREGO) CHKDRVY CY¥L.DS TRK.DS SEC.DS 
GDCY¥L GDTIRK GDSCTR BOCYL BDIRK BDSCIR 


— 
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CZRJAD.P11 


004416 
004420 
004422 
004424 


004426 
004430 
004432 
004434 


004436 
004440 
004442 
004444 


004446 
004450 
004452 
004454 


004456 
004460 
004462 
004464 


004466 


28-MAR-79 11:2 


044674 
046260 
047470 
050056 


044721 
046260 
047522 
050066 


000000 
000000 
047540 
050076 


044721 
046260 
047522 
050066 


000000 
000000 
047540 
050076 


044746 


ERROR POINTER TABLE 


-* 
-* 
-« 
-* 
-* 
-* 
-« 


CYL.DS TRK.DS SEC.DS CYL.RD TRK.RD SEC.RD 
CYLNDR, TRACK, AND SECTOR ARE DECIMAL 


ERROR ITEM 13 
DATA COMPARE FAILURE 
TEST ERR PC TST PC DRIVE CYLNDR TRACK SECTOR 
STMPO SERRPC SREGO CHKDRV CYL.DS TRK.DS SEC.DS 
GDDAT BDDAT WRDCNT GDADR BDADR 
SGDDAT SBDDAT $REG4  $GDADR SBDADR 
CYLNDR, TRACK, SECTOR, AND WRDCNT ARE DECIMAL 


ERROR ITEM 14 == FOLLOWS #13 
SGDDAT S$BDDAT $REG4 $GDADR $BDADR 


0 


0 
DT13A 
DF14 


ERROR ITEM 15 
DATA COMPARE FAILURE 
TEST ERR PC TST PC DRIVE CYLNDR TRACK SECTOR 
S™MPO SERRPC SREGO CHKDRV CYL.DS TRK.DS SEC.DS 
GDDAT BDDAT WRDCNT GDADR BDADR 
$GDDAT SBDDAT $REG4 $GDADR S$BDADR 
CYLNDR, TRACK, SECTOR, AND WRDCNT ARE DECIMAL 


ERROR LITEM 16 == FOLLOWS #15 
$GDDAT S$BDDAT $REG4 $GDADR $BDADR 


0 


0 
DT13A 
DF14 


ERROR ITEM 17 
DISK ERROR IN TIMING TEST 


TEST ERR PC DRIVE RPCS1 RPDS! RPERI RPER2 
STMPO = SERRPC) «CHKDRV RP.LREG RP.REG*12 RPLREG*14 RP.REG*40 RPLREG*GC 


EM17 


SEQ 0058 
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CZRJAD.P11 


004470 
004472 
004474 


004506 
004510 
004512 
004514 


004516 
004520 
004522 
004524 


004526 
004530 
004532 
004534 


0045 36 
004540 


cB-MAR-7 


046474 
047552 
050102 


045000 
046474 
047552 
050102 


046721 
046572 
047572 
050106 


000000 
000000 
047606 
050116 


045047 
046707 
047616 
050122 


045076 
044707 


ERROR POINTER TABLE 


-* 


ERROR ITEM 20 
CLOCK (KWI1l-P) OVERFLOW IN TIMING TEST 
TEST ERR PC DRIVE PCS! RPDS! RPER1 


ERROR ITEM 21 
DATA COMPARE FAILURE 
TEST ERR PC TST PC DRIVE CYLNDR TRACK 
STMPO SERRPC SREGO CHKDRV CYL.DS TRK.DS 
GDDAT BDDAT WRDCNT SECTOR 
SREG] SBDDAT S$REGS S$REGI 
CYLINDR, TRACK, WROCNT, AND SECTOR ARE DECIMAL 


EM13 
DH21 
D121 
DF 21 


ERROR ITEM 22--FCLLOWS #21 
$REG1] S$BDDAT $REG4S  $REGI 


0 


0 
DT21A 
DF22 


ERROR ITEM 23 
DISK ERROR DURING SEEK 
TEST ERR PC DRIVE CYLNDR RPCS1  RPCS2 


RPER2 RPERS 
STMPO SERRPC CHKDRV RP.REG RP.REG*12 RP.REG*14 RP.REG*40 RP.REG*S2 


RPDS} 


STMPO SERRPC CHKDRV CYL.DS RP.REG RP.REG*+10 RP.REG*i2 


RPERI RPER2 RPERS RPCA RPCC 
RP.REG*+14 RP.REG*40 RP.REG*42 RP.REG*+34 RP.REG* 36 
EM23 
DH23 
D123 
DF23 


ERROR ITEM 24 
SEEK NOT COMPLETE WITHIN 120 MS 
TEST ERR PC DRIVE CYLNDR RPCS1 RPCS2 


RPDS} 


S™TMPO SERRPC CHKDRV CYL.DS RP.REG RP. eC RP .REGe12 
CC 


stg tg RPERS RPCA 


SEQ 0059 


a 
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CZRJAD.P11 28-MAR-79 11:28 ERROR POINTER TABLE SEG 0060 
3054 004542 047616 D123 
3055 004544 050122 DF25 
3056 
3057 
3058 
3059 ppeeeeererererecerererereerreerererereerererererenerteeneereeTTTT 
3060 ppeeeeerererereeerrrcerrerrereerererreeeeereeerterereeeeReTeeTTTe 
3061 3* ERROR ITEMS 23-40 NOT USED 
3062 7* ERROR ITEMS 41-46 WILL HAVE AN EM THAT 
3063 3* VARIES DEPENDING ON THE ERROR, IT WILL BE IN THE FORM: 
3064 7* RH11/RP04/5/6 ERROR (MESSAGE) 
3065 ;* WHERE MESSAGE WILL BE ONE OR MORE OF THE FOLLOWING: 
3066 7* 1) OFFLINE OR UNSAFE DRIVE REQUESTED 
3067 ;* 2) UNLOADED DRIVE REQUESTED 
3068 ;* 5) PERSISTENT UNSAFE 
3069 ;* 4) PARITY ERROR OCCURRED 
3070 7* 5) FATAL PARITY ERROR 
3071 7* 6) SOFTWARE TIMEOUT ON THIS DRIVE 
3072 7* 7) SOFTWARE TIMEOUT ON ANOTHER DRIVE 
3073 7* 8) ERROR OCCURRED DURING 1/0 OPERATION 
3074 7* 9) ERROR OCCURRED DURING NON-1/0 OPERATION 
3075 7* 10) UNSAFE OCCURRED 
sore 7* 11) AUTOMATIC RECALIBRATE SEQUENCE OCCURRED 
3078 004546 1TEM41: 
3079 
3080 * ERROR ITEM 41 
3081 3° RH11/RP04/5/6 ERROR (MESSAGE) 
3082 3° TEST ERR PC TST PC. DRIVE 
mae * $T™MPO SERRPC $REGO CHKDRV 
4 
3085 004546 045136 EM41 
3086 004550 047042 DH41 
3087 004552 047646 D141 
3088 004554 050132 DF41 
3089 
3090 ® ERROR ITEM 42 
3091 3° RH11/RP04/5/6 ERROR (MESSAGE) 
3092 if TEST ERR PC TST PC DRIVE RPCS1 RPCS2 = RPDS) 
3093 « $STMPO SERRPC $REGO CHKDRV RP.REG RP.REG*10 RP.REG*12 
3094 
3095 004556 045136 EM41 
3996 004560 047100 DH42 
3097 004562 047656 D142 
3098 004564 050136 DF42 
3099 
3100 7* ERROR ITEM 43 
3101 3° RH11/RP04/5/6 ERROR (MESSAGE) 
3102 7° TEST ERR PC TST PC DRIVE  RPCS!I RPCS2 RPDS1 
3103 ae $TMPO SERRPC $REGO CHKDRV RP.REG RP.REG*10 RP.REG*12 
3104 it RPER1 RPER2 RPERS 
3105 it RP.REG*14 RP.REG*40 RP.REG*42 
3106 
3107 004566 045136 EMG] 
3108 004570 047100 DH42 
3109 004572 047674 D143 


tee | 


————— 
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CZRJAD.P11 28-MAR-79 11:28 ERROR POINTER TABLE SEQ 0061 


004574 650142 DF43 


wa 
= 
— 
oO 


3111 
3112 z* ERROR ITEM 44 
3113 :e RH11/RP04/5/6 ERROR (MESSAGE) 
3114 :* TEST ERR PC TST PC DRIVE CYLNDR TRACK SECTOR 
3115 :* STMPO SERRPC SREGO CHKDRV CYL.DS TRK.DS SEC.DS 
3116 3° RPCS1 RPCS2 RPDS! RPCC RPCA RPDA 
3117 :* RP.REG RP.REG*10 RP.REG*+12 RP.REG*36 RP.REG*34 RP.REG*06 
3118 ie RPER1 RPER2 RPER3 
3119 :* RP.REG#14 RP .REG*40 RP .REC+42 
sist i CYLNDR, TRACK, AND SECTOR ARE DECIMAL 
3122 004576 045136 EM41 
3123 004600 046260 DH12 
3124 004602 047720 D144 
3125 004604 050152 DF44 
3126 
3127 z* ERROR ITEM 45 
3128 ie RH11/RP04/5/6 ERROR (MESSAGE) 
3129 3 TEST ERR PC TST PC DRIVE CYLNDR TRACK SECTOR 
3130 8 STMPO SERRPC S$REGO CHKDRV CYL.DS TRK.DS SEC.DS 
3131 it RPCS1 RPCS2 RPDS1 RPCC RPCA RPDA 
3132 :* RP.REG RP.REG*+10 RP.REG+12 RP.REG*+36 RP.REG*+34 RP.REG*+06 
3133 :8 RPER1 RPER2 RPER3 RPwWC RPBA RPDB 
3134 » RP.REG*+14 RP.REG#+40 RP.REG+42 RP.REG*+2 RP.REG*4 RP.REG*22 
gies * CYLNDR, TRACK, AND SECTOR ARE DECIMAL 
3137 004606 045136 EMG1 
3138 004610 046260 DH12 
3139 004612 047760 D145 
3141 
3142 z* ERROR ITEM 46 
3143 se FATAL WRITE CHECK ERROR (MESSAGE) 
3144 :* TEST ERR PC TST PC DRIVE CYLNDR TRACK SECTOR 
3145 ie STMPO S$ERRPC $REGO CHKDRV CYL.DS TRK.DS SEC.DS 
3146 :* RPCS1 RPCS2 RPCS1 RPCC RPCA RPDA 
3147 pe RP.REG RP.REG+10 RP.REG*12 RP.REG+36 RP.REG*+34 RP.REG+06 
3148 ie RPER1 RPER2 RPER3 RPWC RPBA RPDB 
3149 :* RP.REG+14 RP.REG+40 RP.LREG+42 RP.REG+2 RP.REG*+4 RP.REG*22 
A it CYLNDR, TRACK, AND SECTOR ARE CECIMAL 

151 
3152 004616 045162 EM46 
3153 004620 046260 DH12 
3154 004622 047760 D145 
Us 004624 050166 DF4S 

6 


3140 004614 050166 DF45 
i 
| 
J 


— rg Coes 
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MOV & 
ss INITIALIZE A FEW VECTORS 
MOV 


CZRJAD.P11 28-MAR-79 11:28 R POINTER TABL SEQ 0062 
3157 
3158 -SBTTL START OF PROGRAM 
$160 
3161 004626 005037 001226 START6: CLR @#BUSADR CLR BUSADR FLAG 
3162 004632 012737 000001 035446 MOV a, TSTPGM ;ALLOW PROGRAMMABLE DRIVES 
3163 004640 000437 BR STRT2A 3 
3164 004642 005037 001226 STARTS: CLR @#BUSADR CLEAR BUSADR FLAG 
3165 004646 012737 000001 035446 MOV wi, TSTPGM ;ALLOW PROGRAMMBLE DRIVES 
3166 004654 000413 BR STRTIA 
3167 004656 012737 177777 001226 START3: MOV #-1, a#BUSADR GET BUSADR FLAG 
3168 004664 012737 000001 035446 MOV wi, TSTPGM ;ALLOW PROGRAMMABLE DRIVES 
3169 004672 000404 BR STRTIA 
3170 004674 005037 001226 START1: CLR @#BUSADR CLR BUSADR FLAG 
3171 004700 005037 035446 CLR TSTPGM ;DISABLE PROGRAMMABLE DRIVES 
3172 004704 005037 001224 STRTIA: CLR aa CNTRLC 3NO CONTROL ‘'C"’ 
tg 004710 BR START 
3175 004720 012737 000001 035446 MOV i, TSTPGM ;ALLOW PROGRAMMABLE DRIVES 
3176 004726 000404 BR STRT2A 
3177 004730 005037 001226 START2: CLR @#BUSADR ;CLR BUSADR FLAG 
3178 004734 005037 035446 CLR TSTPGM ;DISABLE PROGRAMMABLE DRIVES 
3179 004740 012737 177777 001224 STRI2A: MOV #-1 ,aACNTRLC ;SET CONTROL “'C*’ FLAG 
3180 004746 000005 START: RESET 
3181 ~SBTTL INITIALIZE THE COMMON TAGS 
3182 3;CLEAR THE COMMON TAGS (SCMTAG) AREA 
3183 004750 012706 001100 MOV #SCMTAG,R6 ;;FIRST LOCATION TO BE CLEARED 
3184 004754 005026 CLR (R6)+ ;;CLEAR MEMORY LOCATION 
3185 004756 022706 001140 CMP WSWR,R6 ; ;DONE? 
3186 004762 001374 BNE 6 ;;LOOP BACK IF NO 
ne 004764 012706 001100 STACK ,SP 7;SETUP THE STACK POINTER 
3189 004770 012737 022724 0060020 #SSCOPE ,a#IOTVEC ;;10T VECTOR FOR SCOPE ROUTINE 
3190 004776 012737 000340 000022 MOV #340 aM1OTVEC+2 ;;LEVEL 7 
3191 005004 012737 017752 000030 MOV #SERROR ,QMEMTVEC ;;EMT VECTOR FOR ERROR ROUTINE 
3192 005012 012737 000340 000032 MOV #340 ,aMEMTVEC+2 ;;LEVEL 7 
3193 005020 012737 023252 000034 MOV #STRAP ,Q#TRAPVEC ;; TRAP VECTOR FOR TRAP CALLS 
3194 005026 012737 000340 000036 MOV #340 ,a#TRAPVEC+2;LEVEL 7 
3195 005034 012737 176543 023724 MOV #176543,SHINUM ;;PRIME THE RANDOM NUMBER GENERATOR 
3196 005042 012737 123456 023726 MOV #123456,$LONUM ;;BOTH HIGH AND LOW WORDS 
3197 005050 005037 001204 CLR STIMES 7: INITIALIZE NUMBER OF ITERATIONS 
3198 005054 005037 001206 CLR SESCAPE ;;CLEAR THE ESCAPE ON ERROR ADDRESS 
3199 005060 112737 000001 001115 MOVB #1, SERMAX ;: ALLOW ONE ERROR PER TEST 
3200 005066 012737 005066 001106 MOV #., SLPADR ;; INITIALIZE THE LOOP ADDRESS FOR SCOPE 
3201 005074 012737 005074 001110 MOV #. ,SLPERR 3;SETUP THE ERROR LOOP ADDRESS 
3202 7:SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
3203 7;EQUAL TO A ‘'=1"", SETUP FOR A SOFTWARE SWITCH REGISTER. 
3204 005102 013746 000004 MOV Q@#ERRVEC,-(SP) 3; SAVE ERROR VECTOR 
3205 005106 012737 005142 000004 MOV #O4$,Q#ERRVEC ;>;SET UP ERROR VECTOR 
005114 012737 177570 001140 MOV #DSWR,SWR 7;SETUP FOR A HARDWARE SWICH REGISTER 
3207 005122 012737 177570 001142 MOV #DDISP,DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
3208 005130 022777 177777 174002 CMP #-1,aSWR :;TRY TO REFERENCE HARDWARE SWR 
3209 005136 001012 BNE 66$ ;;BRANCH IF NO TIMEOUT TRAP OCCURRED 
3210 7:AND THE HARDWARE SWR 1S NOT = =1 
3211 005140 000403 . BR 65$ >;BRANCH IF NO TIMEOUT 
3212 005142 012716 005150 64$: MOV #605$, (SP) :;SET UP FOR TRAP RFTURN 


000416 
004712 012737 177777 001226 START4: MOV #-1,Q#BUSADR SET BUSADR FLAG 
| 


CZRJAD RPOG/5/6 MECHANICAL AND 


CZRJAD.P11 


005146 
005150 
005156 
005164 


005170 


005326 
005330 


005334 


005440 


28-MAR-79 11:28 


104401 
005737 
001006 
122737 
001002 
104401 


105737 


104401 
004737 
005737 


112737 
005227 


012737 


000176 
000174 
000004 
001160 
001210 
001414 
001416 
177777 
000042 
000001 


050202 
035446 


043242 
000042 
000011 
050266 
000041 


050562 
050656 


050464 
021462 
000042 
001140 


000001 
177777 
050660 


034650 
177777 


ssuinectaniey: TEST MACYI1 othe A 


NITIALIZE THE COMMON T 


001140 65%: 
001142 
66$: 


1$: 


000046 
035446 
4$: 
5$: 
6$: 


000041 


2$: 


100000 


3$: 
.SBTTL 
000176 


001134 67$: 


68$: 


SRTINT: 


001104 


SETVEC: 


034572 


L~5 
a 


13:59 PAGE 67 


;;POINT TO SOFTWARE SwR 
; RESTORE ERROR VECTOR 


;FIRST ADDRESS 

;CLEAR VARIABLE STORAGE 
:DON €? 

; NO-~BRANCH 

[SETUP THE STATUS AND BUFFER REG'S 
SFOR THE TYPE ROUTINE 
sFIRST START ? 
:BR IF NOT 

;ACT11 AUTOMATIC MODE? 
BRANCH IF NO 

;ENABLE PROGRAMMABLE DRIVES 


; TYPE THE PROGRAM'S TITLE 

CAN WE USE PROGRAMMABLE DRIVES? 
;BRANCH IF NO 

TYPE MSG 


;AUTO ACCEPT OR CHAIN MODE ? 
;BR IF EITHER 

LOADED FROM AN RPO4/5/6 ? 
:BR IF NOT 


; INSTRUCT THE OPERATOR TO REMOVE THE PACK 
[ON DRIVE O IF DRIVE 0 1S TO BE TESTED 


[LOADED FROM PAPER TAPE ? 
:BR IF NOT 
;SIZE THE MEMORY 
; 16K OR MORE ON THE SYSTEM ? 
:BR IF YES 
; INFORM THE OPEATOR THAT THE 
“oo BE OVERWRITTEN 

N ON THE TTY KEYBOARD INTERRUPT 


23 ARE WE RUNNING UNDER XXDP/ACT? 
s;BRANCH IF YES 

::SOFTWARE SWITCH REG SELECTED? 

;;BRANCH IF NO 

7:GET SOFT-SWR SETTINGS 


3;SET AUTO-MODE INDICATOR 

;SEE IF FIRST START 

:BR IF NOT 

:GET hy CHECK THE RH11 ADDRESS 


s CHECK FOR A LINE PRINTER 
ENSURE THE PRIORITY = 0 

:SET ITERATION COUNT TO 1 

:G0 CHECK FOR CONTROL SWITCHES 
INITIALIZE THE CLOCK 

CHECK THE DRIVE STATUS 


RTI 
MOV #SWREG, SUR 
MOV #DISPREG, DISPLAY 
MOV (SP) + ,a#ERRVEC 
MOV #SREGAD ,RO 
CLR (RO)+ 
CMP #SBELL RO 
BNE 1$ 
MOV asTPS ,aaSTPS 
MOV a*tPB,aa$1PB 
INC =| 
BNE 3$ 
CMP a442 8846 
BNE 4$ 
MOV #1, TSTPGM 
BR 5% 
TYPE TITLE 
TST TSTPGM 
BEQ 6$ 
TYPE USE 
TST 42 
BNE 2$ 
CMPB #11,41 
BNE 2% 
TYPE ,LOADRV 
TSTB aa4) 
BEQ 3$ 
JSR PC,$SIZE 
CMP $SLSTAD #100000 
BHIS 3$ 
TYPE .NOLOAD 
JSR PC,STKINT 
th VALUE ior SOF TWARE sulTcH REGISTER 
TST aa, 
BNE 67% 
CMP SWR,#SWREG 
BNE 68$ 
GTSWR 
BR 68$ 
MOVB #1,$AUT0B 
INC #-1 
BNE SRTINT 
JSR PC ,GETADR 
TYPE - SCRLF 
JSR PC ,O#LP.AVL 
CLR aaPs 
MOV #1,$1CNT 
JSR PC ,a#GETSWR 
JSR PC,a#ST.CLK 
JSR PC, RPINI1 
MOV #-1,SAVEFG 


SET THE SAVE REGISTERS FLAG 


*XXDP* LOADER 


SEQ 0065 
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CZRJAD.P11 28-MAR-79 11:28 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0064 
3269 005446 062727 177777 000000 ADD #-1,40 sFIRST START ? 
3270 005454 1030035 Bcc 118 7BR IF YES 
3271 005456 005737 001224 TST CNTRLC sCONTROL ‘C* SWITCH SET ? ® 
3272 005462 001111 BNE SRTURV sCONTINUE IF YES 
3273 005464 012737 000340 177776 118: MOV #PR7,PS :SET PRIORITY TO 7 
3274 005472 005004 CLR RG sDRIVE TABLE POINTER 
3275 005474 104401 001215 TYPE , SCRLF 3; CR-LF 
3276 005500 104401 043370 TYPE »SYSTAT s TYPE STATUS HEADING 
3277 005504 18: 
3278 005504 010446 MOV RG,-(SP) 7: SAVE R& FOR TYPEOUT 
3279 7; TYPE DRIVE NUMBER 
3280 005506 104403 TYPOS 7:G0 TYPE--OCTAL ASCII 
3281 005510 002 . -BYTE 2 sz TYPE 2 DIGIT(S) 
3282 005511 000 -BYTE 0 3; SUPPRESS LEADING ZEROS 
3283 005512 104401 044330 TYPE »MSG.SP 7 SPACES 
3284 005516 104401 044330 TYPE »MSG.SP 3s SPACES 
3285 005522 105764 034504 TSTB DRVSTA(R4) ;CHECK DRIVE'S STATUS 
3286 005526 100425 BMI 4% “BR IF UNSAFE 
3287 005530 001027 BNE 5$ 7BR IF ONLIN 
3288 005532 105764 034514 TSTB DRVTYP(R4) ;SEE IF OFFLINE OR NONEXISTENT 
3289 005536 001404 BEQ 23 ;BR IF NONEXISTENT 
3290 005540 100006 BPL 3$ :BR IF OFFLINE 
3291 005542 104401 043464 TYPE ~NOTRP ;DRIVE NOT AN RP04/5/6 
3292 005546 000447 BR 9$ ;CHECK NEXT DRIVE 
3293 005550 104401 043437 23: TYPE ~NOTPRS sDRIVE NOT PRESENT 
3294 005554 000444 BR 9 ;CHECK NEXT DRIVE 
3295 005556 132764 000010 034514 3$: BITB #81103, DRVTYP(R4) sDRIVE PROGRAMMABLE ? 
3296 005564 001403 BEQ 12% BRANCH iF NO 
3297 005566 104401 043317 TYPE »NOUSE >PRINT MSG 
3298 005572 000410 BR 6% sPRINT DRIVE TYPE 
3299 005574 104401 043416 12$: TYPE »UNTOFF sDRIVE OFFLINE 
3300 005600 000405 BR 6$ sPRINT DRIVE TYPE 
3301 005602 104401 043454 4$: TYPE ~NOTSAF ;DRIVE UNSAFE 
3302 005606 000402 BR 6% sPRINT DRIVE TYPE 
3303 005610 104401 043427 5$: TYPE ~UNTON sDRIVE ONLINE 
3304 005614 104401 044330 6$: TYPE »MSG.SP : SPACES 
3305 005620 012737 043502 005664 MOV #RPO4B,8$ ADDRESS OF RPO4 MESSAGE 
306 005626 132764 000001 034514 BITB #B1T00. DRVTYP(R4) ;RPO4 
3307 005634 001012 BNE 7$ ;BR IF 18 
3308 005636 012737 043507 005664 MOV #RPOS 8S ADDRESS OF RPOS MESSAGE 
3309 005644 132764 000002 034514 BITB #B1T0i, DRVTYP(R4) sRPOS ? 
3310 005652 001003 BNE 7$ :BR. IF YES 
3311 005654 012737 043514 005664 MOV #RP06,8$ sADDRESS OF RPO6 MESSAGE 
3312 005662 104401 7$: TYPE s TYPE THE DRIVE TYPE MESSAGE 
3313 005664 000000 8$: - WORD 0 MESSAGE ADDRESS HERE 
3314 005666 104401 001215 9$: TYPE »SCRLF :CR-LF 
3315 005672 005204 INC RG : INCREMENT DRIVE NUMBER/TABLE POINTER 
3316 005674 020427 000010 CMP R4,#8. sFINISHED ? 
3317 005700 001301 BNE 1% :BR IF NOT 
3318 005702 005037 177776 CLR PS :SET PRIORITY BACK TO ‘O° 
3319 005706 005737 001224 SRIDRV: TST Aa CNTRLC sCONTROL ‘'C’* START/RESTART? 
3320 005712 001417 BEQ 1$ 3NO--BRANCH 
3321 005714 013746 001222 MOV SAVCSW,-(SP) :GET THE PREVIOUS ‘C.SWR* CONTENTS 
3322 005720 063716 001220 ADD C.SWR, (SP) ;SET UP TO SEE IF “BITOO* IS DIFFERENT 
3323 005724 032726 000001 BIT #B1100,(SP)+¢ 31S "BIT00* DIFFERENT ? 
3324 005730 001405 BEQ i} 3 ;BR IF NOT 
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013737 001220 
37 024470 
031772 


024470 
001232 


000001 
034504 


034620 


vw 


034574 
000400 


034574 
000011 


000001 
043521 
017664 
001232 
043552 


017502 


WANA AWW we 


104401 
000137 


017664 


043557 
017664 
901244 
036000 


043561 
001232 


004730 


001256 


001100 


006222 005237 001254 


n 5 
raoncrner * MACY11 SOA(1052) 24-MAY- 
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SEQ 0065 


001222 MOV C.SWR,SAVCSH STORE PRESENT °C.SWR* VALUE 
JSR PC ,LODFLT RESET PARAMETERS TO THEIR DEFAULT VALUES 
. 9$: bay + aetna cies 3;GET PARAMETERS 
1$: JSR PC,LODFLT ;SETUP DEFAULT PARAMETERS 
CLR DRVSEL NO DRIVES SELECTED 
CLR RO DETERMINE THE DRIVES THAT 
MOV #1,R1 zARE AVAILABLE FOR TESTING 
2$: TSTB DRVSTA(RO) 
BLE 3$ 
001232 BISB ATABIT(RO) ,A#DRVSEL 
3$: INC RO 
ASLB R1 
BNE 2% 
4$: CLR @#SEEKFG :CLEAR SEEK FLAG 
001220 BIT #SWO8,a#C.SWR ;D0 SEEK BEFORE DATA TRANSFER? 
BNE 5% : YES--BRANCH 
COM @ASEEKFG NO 
000041 5$: CMPB #11,41 ;LOADED FROM AN RP04/5/6 ? 
BNE 10% :BR IF NOT 
001232 BIC wots — CLEAR THE DRIVE 0 SELECTION BIT 
10$: TYPE -DRIV ;"DRIVES(S) TO BE TESTED" 
CLR SASENDCI :DETERMINE PASSES TO MAKE AND 
CLR RO :THE DRiVES TO BE TESTED 
MOV @#DRVSEL,RI sANY DRIVES SELECTED? 
BNE 6$ 3 YES--BRANCH 
TYPE » NONE ; "NONE ' 
JMP a#SeoP :GO TO END OF PROGRAM 
6$: ASR ;REPOR’ THE DRIVES TO BE TESTED 
BCC 
INC a#SENDCT sGIVE THIS DRIVF A PASS 
MOV RO,-(SP) 3:SAVE 80 FOR TYPEOUT 
TYPOS 3:60 TYPE--OCTAL ASCI1 
-BYTE 1 3: TYPE 1 DIGIT(.) 
-BYTE 0 7; SUPPRESS tEADIWG ZEROS 
TST R1 MORE DRIVES? 
BEQ 8$ ;NO--BRANCH 
TYPE , COMMA i. 
7$: _ ~ FORM DRIVE NUMBER 
017656 8$: MOV O#SENDCT ,A#SEOPCT 
TST OA CLKSTA ;KW11-P a 
BGT RSTRT1 : YES--BRANC 
001234 BIT #36000,a#TSTNMS ;NO-~ANY TIMING TESTS TO BE PERFORMED? ° 
BEQ RSTRT1 NO--BRANCH 
TYPE -NOCLOK NO KW11-P CLOCK, game TESTS WILL NOT BE PERFORMED" 
RSTRT1: TST DRVSEL ANY DRIVES SELECTED ? 
BNE 1$ :BR IF YES 
JMP START2 :GET DRIVE SELECTION ENTRY 
1$: CLR CHKDRV s INIT. THE CHECK DRIVE KEY 
001256 MOV #1 ,DRVMSK :START TO CHECK DESIRED DRIVES 
001232 RSTRT2: BIT DRVMSK,DRVSEL ;1S THIS DRIVE SELECTED? 
BNE DRVOK sYES--GO CHECK IF DRIVE 1S READY FOR TESTING 
RESTART: MOV WSTACK, SP ;SETUP THE STACK POINTER 
INC CHKDRYV ;MOVE TO NEXT DRIVE NUMBER 
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3381 006226 106337 001256 


3382 006232 103755 

3383 0062 764 

3384 

3385 0062 013702 001254 
3386 006242 105762 034504 
3387 006246 003005 

3388 006250 104011 

3389 006252 043737 001256 
3390 0062 000756 

3391 006262 010237 1 
3392 006266 010237 004124 
3393 006272 010237 004144 
3394 006276 010237 004164 
3395 006302 004737 025104 
3396 006 012737 017502 
3397 006314 112737 000020 
3398 006322 032737 000001 
3399 0063 001402 

3400 006332 105037 004105 
3401 006336 112737 000143 
3402 006344 004037 025150 
3403 006350 112737 000107 


3405 006362 104401 045647 
3406 006366 


0 
006374 104401 044330 


3410 
3411 
3412 
3413 006410 013701 004234 
3414 
3415 
3416 


3423 006436 062702 000060 
3426 006446 104401 006444 


3429 006456 104401 001215 
3430 006462 113737 001364 


8B 6 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


001232 


001252 
004105 
001220 


004106 
004106 


001115 


DRVOK: 


1$: 


23: 


3$: 


4$: 


DRVASK POSITION THE MASK 
RSTRTI ;BRANCH IF THE DRIVE NUMBER NEEDS INITIALIZED 
RSTRI2 
CHKDRV,R2 ;PICKUP THE DRIVE NUMBER 
* Sypeantami $2 gt so DRIVE ON-LINE? 
sv 
1 ; DRIVE SELECTED 1S NOT ONLINE 
DRVMSK ,DRVSEL 2 eel DRIVE'S SELECTION BIT 
RESTART ;RETU 
R2,a#DPB.A :SET Utne DRIVE NUMBER INTO THE DPBS 
R2,a#0PB.8 
R2,aeDP 
ig pn ty 
PC ,@#LOCh ;LOAD COMMAND INTO DPB.B AND DPB.C 


#$EOP OeBYPASS :1F ERROR GO TO END OF PROGRAM 
#FMT22/256.,DPB.A+1 ;ASSUME 16 BIT FORMAT 
#B1T00,C.SWR | :16 BIT FORMAT REQUESTED ? 

2$ 'BR IF YES 

DPB.A+1 [CLEAR THE "FMT22* BIT 
#SETFORM,DPB.A+2. ;SET THE FORMAT BIT PER DPB.A+1 
RO, @#CALL.A :G0 EXECUTE THE COMMAND 


#RECAL ,@#DPB.A+2 ;RECAL=COMMAND 

RO,@#CALL.A 3GO EXECUTE THE COMMAND 

» TESTNG :"TESTING DRIVE ° 

R2,-(SP) 3:;SAVE R2 FOR TYPEOUT 
3;G0 TYPE=-OCTAL ASCII 

1 s; TYPE 1 DIGIT(S) 

0 3; SUPPRESS LEADING ZEROS 

»MSG.SP ; TYPE SPACES 

SERIAL ; "SERIAL NUMBER ° 

#4,R0 sFOUR DIGITS TO TYPE 

RP. REG*30,R1 ;SERIAL NUMBER 

R2 3; ZERO 

R1 ;PUT THE NEXT DIGIT 

R2 INTO R2 

R1 

Re 

R1 

R2 

R1 

R2 

#'O,R2 ;MAKE IT ASCII 

- patel ;SAVE IT 

4% s TYPE 

RO sALL DIGITS TYPED? 

3$ sNO -- BRANCH 


SCRLF 
ERR.CT,SERMAX sSETUP MAX ERROR COUNT 


SEQ 0066 
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CZRJAD.P11 28-MAR-79 1 


GET VALUE FOR SOFTWARE SWITCH REGISTER 


-SBITL #088 TESTS #ae8 


7 AAT AAT AAC LACT LATTA TIAA AACIAATT AAC AACTAACTA ACTA CT AA CIA ACTA ACTA AD © 
STOENSTENSTOENSSOENS SONS SONS SONS ZENS SONS JONSSON JONSON JONSON JONSON Je: 
STENT ENSS ONS ONS SONS ENTS ONSEN ONS JONSSON SON ON JONSON SON eNO: 


;*IN THE DESCRIPTIONS OF THE BELOW TESTS THE VARIABLES USED 
ged THEIR DEFAULT VALUES (UNLESS SPECIFIED OTHERWISE) ARE: 


3431 
3432 
3433 
: RNERON IC VALUE 
a“ 
*R 7 
stFC 0 
z*LC 410 OR 814 
*1C¢ 1 
3 #NC OF NCI FC+IC 
2 eNC2 LC-1C 
*@ 
te 
pert 0 
s*LT 18 
eT 1 
sent FT¢]T 
FS 0 
7*LS 21 


VARIABLE 


ITERATIONS (REPEATS) 
FIRST CYLINDER ADDRESS 
LAST CYLINDER ADDRESS 
INCREMENT VALUE 

NEW OR MODIFIED CYLINDER 
ADDRRESS 

NEW OR MODIFIED CYLINDER 
ADDRESS 


FIRST TRACK ADDRESS 

LAST TRACK ADDRESS 

INCREMENT VALUE 

NEW OR MODIFIED TRACK ADDRESS 


FIRST SECTOR ADDRESS 
LAST SECTOR ADDRESS 


STING SNM NOS NO NO Ne Ne Ne Ne Ne Ne Nes Ne Nes Nes Nes Nes \e 
STING NOS NOS NO Ne Ne Ne Ne Ne Ne Ne Ne Nes Nes Nes Nes Nes \e 
SLINOA NOL NO NO NZ NZ Ne NZ Ne Ne Ne Ne Ne Nes Nes Nes Nes \e 


3466 
3467 
3468 


~SBTTL *** SEEK TESTS *e# 


SPENT ON SONS ON SONS SON JONSSON SONS SON SON SON SON SON JONSON e/a: 
LATE LATILATILATILATIAATIAATTLATIAATI AAT LATT AAI AAT AAT AA tT AD CT AA TTAD Tt 
STONST ONES ONS JONSON SONS ONS ONSEN SONS SONS JONSON SON SON JON ON ON: 


s*THE SEEK TESTS WILL BE EXCUTED USING IMPLIED SEEKS. THESE 
;*IMPLIED SEEKS WILL BE PERFORMED BY “READ HEADER AND 

;*DATA’’ COMMANDS TO TRACK ‘'FT'’ SECTOR ‘‘FS"' OF THE DESIRED CYLINDER. 
;*THE WORD COUNT WILL BE SET SUCH THAT ONLY THE CYLINDER AND 
:*TRACK/SECTOR WORDS OF THE HEADER ARE READ. 


SAIN@A INOS NOS SNOT NOS Ne Ae Ne Ne Nes Ne Ne Ne Nes Nes Nes Nes \e 


PAEN@L INO NOS NOL SNOS NOL NOL NOL NON NOL NEL NO ENON Ned Ne Ne 


PANO NOS NOs Nes Ness \e7: 


3484 
3485 
3486 


Nes sN\e/ Ness N\e Nes Nes Nes Nes Nes Nes Nes i\e 


sseererveceecesrerecerereeerrereseserreenaareeseneneeerenereneeees 


TEST 0 RECAL/SEEK TEST 





—— 
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006630 


006632 


006644 
006650 


006656 


006720 
006726 
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000240 


004737 


— SS es st OOOO 
ee ee os ot ot et E> 
WAM W 


001424 


006632 
000000 


024726 


025262 


001426 


007010 
000001 


024726 


001516 


READ/WRITE TEST 
10 
;* 
;* 
7* 
;* 
1510 

001234 

001102 64$: 

001110 

172406 

001204 

001115 

004106 

004134 

004135 

004136 

001252 

001106 
TESTO: 
EXITO: 


001234 


001102 


001110 
172244 
001204 
001115 
004134 
004154 
004135 


D 6 een in args 
MACYI1 30A(1052) 24-MAY-79 13:59 PAGE 72 
RECAL/SEEK TEST SEQ 0068 


THIS TEST WILL CAUSE THE DRIVE TO EXECUTE A RECALIBRATE 
COMMAND CYCLE AND THEN SEEK FORWARD TO CYLINDER “‘LC"’ AT 
THE COMPLETION OF BOTH COMMANDS STATUS INDICATIONS ARE 
CHECKED TO ENSURE NO ERRORS OCCURRED. 


-s@@rereretrerrrrererererereereeeeerereeetererereeeeeetereteretae 


NOP 

BIT a#B1TS+<O0*2>, TSTNMS ;D0 THIS TEST? 

BNE ote ; YES--BRANCH 

JMP NO--GO TO THE NEXT TEST 
MOV 40. aeSTSTNA SET UP TEST NUMBER AND 


CLEAR THE ERROR FLAG (SERFLG) 
JSR PC ,LODPRM [LOAD THE PARMETERS FOR THE TEST 
MOV MTESTO,@#SLPERR ;SETUP THE LOOP ON ERROR ADDRESS 
MOV STSTNM,@DISPLAY ;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
MOV @#RPT STIMES ;GET THE ITERATION COUNT 
MOVB #25. ,SERMAX ;MAX ERRORS ALLOWED FOR TEST 
MOVB WRECAL ,@#DPB.A+2 ;RECAL=COMMAND 
MOVB a#FS,a#0PB.B+10 :FS 
MOVB avFT,a#0PB.B+11 5 FT 
MOV Q#LC ,a#D0PB.B+12 ;LC 
MOV WEXITO,@#BYPASS ;GO TO EXI1TO ON ERROR 


nn 


MOV #STACK,SP ;SET UP STACK POINTER 
JSR RO,@#CALL.A ;GO EXECUTE THE COMMAND 
JSR RO,@#CALL.B :GO EXECUTE THE COMMAND 
SCOPE ;LOOP 


bd seeeererererererererereererereeeeeenereeeaeaneeaRnaeeeeeAeeneneTe 


*TEST 1 


SEEK/SEEK TEST 


THIS TEST WILL CAUSE THE DRIVE TO EXECUTE A FORWARD SEEK 
CYCLE TO “LC’, "LT", "LS FOLLOWED BY A REVERSE SEEK CYCLE TO 
"Ct «4 0 6 Te AT THE COMPLETION OF EACH SEEK, THE PROPER 
INDICATORS ARE EXAMINED TO ENSURE PROPER OPERATION. 

“LEC WILL DEFAULT TO 128 AND ‘FC’, “FT’, “LT, “FS**, AND “LS” 
WILL DEFAULT TO 0 


‘Meee eeekeeeeteeeeeReetekeeteteneteteteeeeeetereenest 


64$: 


BIT ee TSTNMS ;DO THIS TEST? 
BNE 64$ :YES=-BR ANCH 
JMP TST2 =NO--G0 TO THE NEXT TEST 
MOV #1, aaSTSTNM :SET UP TEST NUMBER AND 
sCLEAR THE ERROR FLAG (SERFLG) 
JSR PC,LODPRM ;LOAD THE PARMETERS FOR THE TEST 
MOV MTESTI,@#@$LPERR ;SETUP THE LOOP ON ERROR ADDRESS 
MOV STSTNM,@DISPLAY ;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
MOV a#RPT,STIMES GET THE ITERATION COUNT 
MOVB #25. ,SERMAX > MAX ERRORS ALLOWED FOR TEST 
MOVB a#vFS,a#DPB.B+10 ;FS 
MOVB 96.5 .980PB.C+ 10 iLS 


OD 


! 

| 

MOV MTESTO,SLPADR ;SETUP LOOP ADDRESS 
MOVB a*FT,a#0PB.B+ 
4 
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007010 


007026 
007034 


007224 
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000240 


001520 


025262 


001430 


007226 
000002 


024726 


001100 


025262 
001514 
001512 


001512 
007170 
001100 


025262 
001514 
001510 


ee 


004155 


001106 


001234 


001102 


001110 
172066 


001110 


004136 
004136 


004136 
001110 


004136 
004136 


TESTI: 


EXIT1: 


E 6 
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SEEK/SEEK TEST 


MOVB @#LT,a#0PB.C+11 57 

MOV asFC ,a#0PB.B+12 ;FC 

MOV OFLC ,a#DPB.C+12 LC 

MOV WEXIT1,@#BYPASS ;GO TO EXIT! ON ERROR 
MOV #TESTI,SLPADR ;SETUP LOOP ADDRESS 

MOV #STACK SP :SET THE STACK POINTER 
JSR RO,@#CALL.C 3GO EXECUTE THE COMMAND 
JSR RO,@#CALL.B ;GO EXECUTE THE COMMAND 
SCOPE ; LOOP 


e peteeererererereerererrereerrereererrereneenereneaRneeeeareeenEne 


*TEST 2 


Se Se Be Be oe Oe Oe oe 
eaeee#eg#ee##@\ fre 


$12: 


—s*. 


64$: 


DECSK: 


EXIT2: 


INCREMENT/SEEK TEST 


THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE THE 
CYLINDER ADDRESS FROM ‘’FC’’ TO “'LC’’ BY THE INCREMENT “‘IC"’. 
WHEN THE RESULTANT CYLINDER ADDRESS (NC) EXCEEDS 

“LC’’ REVERSE SEEK CYCLES ARE INITIATED; STARTING 

AT THE LAST LEGAL "'NC’’ AND DECREMENTING BY ““IC"’ 

UNTIL “'NC’’ IS LESS THAN “'FC’', AT THE COMPLETION OF EACH 
SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO 
ENSURE PROPER OPERATION. 


-aeererteretereretererereteteerererekeeretekeneteeeeeneeneeetetentes 


NOP 
BIT OAB1TS+<22>, TSTNMS :D0 THIS TEST? 
BNE es me YES--BRANCH 
JMP $13 :NO=-GO TO THE NEXT TEST 
MOV 13 asSTSTNM ;SET UP TEST NUMBER AND 
CLEAR THE ERROR FLAG (SERFLG) 
JSR PC ,LODPRM [LOAD THE PARMETERS FOR THE TESi 


MOV MTEST2,Q#$LPERR ;SETUP THE LOOP ON ERROR ADDRESS 

MOV STSTNM,@DISPLAY ;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
MOV @#RPT,STIMES ;GET THE ITERATION COUNT 

MOVB #25. ,SERMAX MAX ERRORS ALLOWED FOR TEST 

MOV #1$,S$LPADR : SETUP LOOP ADDRESS 

MOVB a#FS,a#0PB.B+10 ; + 

MOVB avFT,a#DPB.B+11 ; 

MOV WEXIT2,Q#BYPASS ; 60 TO EXIT2 ON ERROR 


MOV aeFC ,aaDPB.B+l2 ; 

MOV #. ,SLPERR ;SETUP THE ERROR LOOP ADDRESS 
MOV #STACK,SP ;LOAD THE STACK POINTER 
JSR RO,@#CALL.B ;GO EXECUTE THE COMMAND 
ADD a#1C,a#0PB.B+12 ;MOVE TO NEXT CYLINDER 
CMP Q4LC,a#DPB.B+12 ;OUT OF CYLINDERS? 

BGE INCSK ;NO--BRANCH 


MOV Q*LC ,a#DPB.B+12 

MOV #. ,SLPERR ;SETUP THE ERROR LOOP ADDRESS 
MOV STACK ,SP ;LOAD THE STACK POINTER 
JSR RO,@#CALL.B 3GO EXECUTE THE COMMAND 
SUB a#1C,a#DPB.B+12 

CMP avFC ,a#DPB.B+12 

BLE DECSK 

SCOPE ;LOOP 


nn 
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CZRJAD.P11 


3599 


007226 


007272 
007300 
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012737 
004737 


112737 


001432 


007422 
000003 


024726 


001506 
000031 


001234 


001102 


001110 
171650 
001204 
001115 


sz, eeereeerrererrrerrrrrerereererreeererereereneeereneteneeeeeeTee 


s*TEST 3 STEPPING SEEK TEST 

be THIS TEST WILL COMMAND SEEK CYCLES TO CYLINDER 0,1.2,4, 

jn 8,16,32,64,128, AND 256. AT THE COMPLETION OF EACH SEEK 

5 eeaitan PROPER INDICATORS ARE EXAMINED TO ENSURE PROPER 
;* . 


--@eeteeererererereetrererereeneerertererentereneneeteeeeeeeeeeeeeee 


1S13: 


NOP 

BIT Q#BITS+<5*2>, TS TNMS :d0 pi 3. TEST? 

BNE 64% YES--BRANC 

JMP TST4 :NO=-GO 10. THE NEXT 3 
643: MOV #3, aeSTSINM ;SET UP TEST NUMBER AND 


CLEAR THE ERROR FLAG (SERFLG) 
JSR PC,LODPRM [LOAD THE PARMETERS FOR THE TEST 
MOV MTEST3,Q#@SLPERR ;SETUP THE LOOP ON ERROR ADDRESS 
MOV STSTNM,@DISPLAY ;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
MOV @#RPT,STIMES ;GET THE ITERATION COUNT 
MOVB #25. ,SERMAX MAX ERRORS ALLOWED FOR TEST 


| 
—_ 
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CZRJAD.P11 28-MAR-79 11:28 13 STEPPING SEEK TEST SEQ 0071 
3621 007 012737 007314 001106 MOV #1$,SLPADR sSETUP TEST LOOP ADDRESS 
3622 007314 113737 001524 004134 18: MOvB a#FS,a#0PB.B8+10 FS 
3623 007 113737 001516 004135 *OvB asFl, a#0PB.B+11 ;FT 
3624 007330 012737 007420 001252 MOV #EXI1T3,a@BYPASS ;GO TO BYPASS ON ERROR 
3625 0073 013737 001510 004136 TEST3: MOV asFC ,a#0PB.B+12 ;FC 
‘3626 007344 012737 007344 601110 MOV #. , SLPERR sSETUP THE ERROR Sp ADDRESS 
3627 007352 012706 001100 MOV @STACK,SP sLOAD THE STACK POINTER 
3628 007356 004037 025262 JSR RO, a#CALL.B ;GO EXECUTE THE COMMAND 
3629 007362 013701 001514 MOv 1C,R1 [CYLINDER 1 
007 012737 007366 001110 MOV #. , SLPERR ;SETUP THE ERROR LOOP ADDRESS 
3631 007374 012706 001100 MOV @STACK,SP ;LOAD THE STACK POINTER 
3632 007400 010137 004136 1$: MOV R1,a#DPB.B+12 sDESIRED CYLINDER 
3633 007404 004037 025262 JSR RO, a#CALi..B 7G0 EXECUTE THE COMMAND 
3634 007410 006301 ASL R1 sMOVE TO NEXT CYLINDER 
3635 007412 020137 001512 CMP R1,aaLc DONE? 
3636 007416 003770 BLE 1$ :NO--LOOP 
3637 007420 000004 ExI1T3: SCOPE 


| 
en er a rE Sees ee enact 
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007422 


007440 
007446 


007670 
007674 
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000240 
033737 


001434 


010010 
000004 


024726 
007546 


010006 
010000 


001510 


025262 


026502 
001510 
025262 
026502 


001336 
001362 


001336 
001514 
001512 


001512 
007674 


001234 


001102 


001110 
171454 
001204 
001115 
001106 
004134 
004135 
001252 


001220 


001110 


004136 


001336 


001110 
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DSCILLATING SEEK TEST 


p_eeteeervererverercerreseerereereeererecererererereerereeeeeeetereee 


seTEST & OSCILLATING SEEK TEST 
:* THIS TEST WILL COMMAND SEEK CYCLES FROM ‘FC’ TO ‘'NC’’ AND BACK 
3? TO FC’. «“'NC'’ STARTS AT ““FC’’ AND INCREMENTS By “IC*’ UP 70 CYLINDER 
se “LC'*, THEN IS DECREMENTED BY ““IC’’ BACK TO CYLINDER “FC’’. AT THE 
° COMPLETION OF EVERY SEEK COMMAND THE PROPER INDICATORS ARE 
:* EXAMINED TO ENSURE PROPER OPERATION. 
sp, eeteeeerrerrerrereereresereererrerereereneneeneeeeetanerneTenee 
TST4: 
NOP 
BIT Q#B11S+<4e2>,1STNMS ;DO THIS TEST? 
BNE 64% 3 YES--BRANCH 
JMP TST5 sNO--GO TO THE NEXT TEST 
64$: MOV #4, aeSTSTNM ;SET UP TEST NUMBER AND 
;CLEAR THE ERROR FLAG (SERFLG) 
JSR PC,LODPRM ;LOAD THE PARMETERS FOR THE TEST 
“OV #@TESTG a#SLPERR ;SETUP THE LOOP ON ERROR ADDRESS 
MOV STSTNM,@DISPLAY ;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
“OV @#RPT STIMES sGET THE ITERATION COUNT 
“OvB #25. ,SERMAX sMAX ERRORS ALLOWED FOR TEST 
MOV #1%,$LPADR ;SETUP LOOP ADDRESS 
1$: “OvVB asFS,a#DPB.B+10 ;FS 
MOVB aafl, a#0PB.B+11 sFT 
MOV WEX114,a@BYPASS ;GO TO EXIT4 ON ERROR 
CLR R2 sCLEAR STALL SWITCH (NO STALL) 
BIT #SW12,a0C.SWR sSTALL REQUIRED? 
BEQ TESTS 3NO--BRANCH 
COM R2 sYES--SET SWITCH 
TEST4: MOV avrc,Ri ;SET NC TO FC 
CLR a#STALLO sSTART AT ZERO IF STALLS REQUIRED 
MOV #. , SLPERR ;SETUP THE ERROR LOOP ADDRESS 
MOV @STACK,SP ;LOAD THE STACK POINTER 
1$: MOV R1,a#DPB.B+12 NC 
JSR RO, a#CALL.B 3G0 EXECUTE THE COMMAND 
TST R2 > STALL? 
BEQ 2$ 3NO--BRANCH 
JSR RO,@#STALL :YES-GO TO STALL ROUTINE 
WORD STALLO s TIME POINTER 
23: MOV FC, a#DPB.B+12 sc 
JSR RO,a#CALL.B :GO0 EXECUTE THE COMMAND 
1ST RO sSTALL? 
BEQ 3$ ;NO--BRANCH 
JSR RO, @#STALL sYES=--GO TO STALL ROUTINE 
-WORD STALLO : TIME POINTER 
INC @#STALLO sUPDATE THE TIME 
CMP QOMXSTAL ,@MSTALLO ; TIME TO BIG? 
BGT 1$ :NO--BRANCH 
CLR aaSTALLO sYES=-START OVER AT ZERO 
3$: ADD avic,R) sMOVE TO NEXT CYLINDER 
CMP R1,a4#LC sLAST CYLINDER COMPLETED? 
BLE 1$ >NO--BRANCH 
MOV aaic,Rl sSET NC TO LC 
MOV #. ,SLPERR sSETUP THE ERROR LOOP ADDRESS 


SEQ 0072 


ds 
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012706 001100 MOV @STACK,SP ;LOAD THE STACK POINTER 
010137 004136 MOV R1,a¢DPB.B8+12 nC 
004037 025262 JSR RO,a#CALL.B :60 EXECUTE THE COMMAND 
005702 TST R2 sSTA LL? 
001403 BEQ 5$ 3NO--BRANCH 
037 026502 JSR RO, ,a#STALL TYES=-G0 7 STALL ROUTINE 
001336 -WORD STALLO sTIME POINTER 
013737 001512 004136 S$: MOV Sat. vs Bel2 ;LC 
004037 025262 JSR R0,a LL.B 60 —e 8 THE COMMAND 
005702 TST R2 STA 
001413 BEQ 6$ sO UBRANC 
004037 026502 JSR RO, a#STALL 3 YES--GO 10 STALL ROUTINE 
13 - WORD STALLO TIME POINTER 
005237 001336 INC a#STALLO sUPDATE STALL TIME 
023737 001362 001336 CMP SeRXSTAL, aaSTALLO s;TIME TOO BIG? 
003347 BGT 4% 3 NO--BRANCH 
005637 001336 CLR a#STALLO YES=-SET STALL TIME BACK TO ZERO 
163701 001514 SUB avic,Ri NEXT CYLINDER 
020137 001510 CMP R1,aaFC 7 DONE? 
002340 BGE 4% :NO--BRANCH 
000004 SCOPE ;LOOP 
2eaecereeeeceeeezneeeaeaeeeeeeerterereeaeeetaeneeteeteeeneeteeeeeeeteeeee 
CONVERGING/DIVERGING SEEK TEST 
3* THIS TEST WILL CAUSE THE DRIVE TO EXECUTE FORWARD AND REVERSE 
3¢ SEEKS FROM “’NC1"’ AND “‘NC2°' RESPECTIVELY, ‘‘NC1'’ WILL BE INCREMENTED 
3* BY “‘1C’* AND “‘NC2°' WILL BE DECREMENTED By ‘IC’ UNTIL ‘'NC1" IS 
;* GREATER THAN THE INITIAL VALUE OF ‘‘NC2°* AND ‘‘NC2°° IS 
7@ LESS THAN THE INITIAL VALUE OF “'NC1°°. AT THE COMPLETION OF 
7° EACH SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED T0 
3° ENSURE PROPER OPERATION. ‘‘NC1"* AND ‘‘NC2°* DEFAULT TO 
* “EC’' AND "'LC'’ RESPECTIVELY. 
sp eeeeerarererereresereersereerereneereernaneerereneneeateneresers 
T . 
000240 NOP 
033737 001436 001234 BIT O4B11S+<5*2>,TSTNMS ;DO THIS TEST? 
001002 BNE * *. 7 YES =-BRANCH 
000137 010210 JMP sNO--GO TO THE NEXT TEST 
012737 000005 001102 MOV £3 Seststien > SET UP TEST NUMBER AND 
;CLEAR THE ERROR FLAG (SERFLG) 
004737 024726 JSR PC,LODPRM sLOAD THE PARMETERS FOR THE TEST 
012737 010120 001110 MOV MTESTS,@@$LPERR ;SETUP THE LOOP ON ERROR ADDRESS 
013777 001102 171066 MOV STSTNM,Q@DISPLAY ;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
013737 001506 001204 MOV a#RPL,STIMES GET THE ITERATION COUNT 
112737 000031 001115 MOvVB #25.°, SERMAX > MAX ERRORS ALLOWED FOR TEST 
012737 010076 001106 MOV #1$,SLPADR ;SETUP LOOP ADDRESS 
113737 001524 004134 MOVB a*FS,a#DPB.B+10 ;FS 
113737 001516 004135 MOVB afl, a#DPB.B+11 ;FT 
012737 010206 001252 MOV #EXITS,@#@BYPASS ;GO TO EXITS ON ERROR 
013701 001510 MOV aavFC.Ri sSTART NC1 AT FC 
013702 001512 MOV avLC,R2 :START NC2 AT LC 
012737 010130 001110 MOV #. , SLPERR sSETUP THE ERROR LOOP ADDRESS 
012706 001100 MOV @STACK,SP ;LOAD THE STACK POINTER 
010137 004136 MOV R1,a#DPB.B+12 ; 





nd 
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3751 010146 
3752 010152 
3753 010156 
3754 010162 
3755 010166 
3756 010172 
3757 010176 
3758 010200 
3759 0102 
3760 010206 
3761 
3762 
3763 
3764 
3765 
3766 
3767 
3768 
3769 
3770 
3771 
3772 
3773 010210 
3774 010210 
3775 010212 
3776 010220 
3777 010222 
3778 010226 
3779 
3780 010234 
3781 010240 
3782 010246 
3783 010254 

784 010262 
3785 010270 
3786 010276 
3787 010304 
3788 010312 
3789 010320 
3790 010324 
3791 010330 
3792 010334 
3793 010342 
3794 010346 
3795 010350 
3796 010352 
3797 010356 
3798 010362 
3799 010370 
3800 010574 
3801 010402 
3802 010406 
3803 010414 
3804 010420 
3805 010426 
3806 010432 


000240 
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062737 


025262 
004136 


001512 
001510 


001440 


010454 
000006 


024726 


001100 


004136 


000003 
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001234 


001102 


001110 
170666 


001252 


001110 


004136 
004136 
004136 
004136 
004136 


CONVERGING/DIVERGING SEEK TEST 


JSR RO,@#CALL.B ;GO EXECUTE THE COMMAND 
MOV R2,a#0PB.B+12 ;=NC 
JSR RO,@#CALL.B ;60 at THE COMMAND 


ADD avic.Ri 7 NEXT 

$uB aviC,R2 NEXT NC2 

CMP R1,aacc ; DONE? 

BGT EXITS ; YES--BRANCH 

CMP R2,aeFC ;? 

BGE 1$ ; NO--BRANCH 
EXITS: SCOPE ; LOOP 


s,eeeetertererererrrererrerererererereereneeeraneeeeeverenateeTeee 


:*TEST 6 SERVO ADDRESSING LOGIC NOISE GENERATOR 


;* IN THIS TEST A SEEK IS DONE TO CYL ‘NC’ THEN A SEEK T 
ze NC+4 THEN NC41 THEN NC*+3 THEN NC*#2 THEN NC*5. NOW NC! 1S UPDATED 
3* BY “‘IC’’ AND THE ABOVE SEQUENCE IS REPEATED UNITL ‘LC’ IS 

;* EXCEEDED BY ANY OF THE ABOVE VALUES. THE INITIAL VALUE OF “‘NC”’ 

se 1S ‘FC’. AT THE COMPLETION OF EACH SEEK COMMAND THE 

38 PROPER INDICATORS ARE EXAMINED TO ENSURE PROPER OPERATION. 


*-s@aetererereterrerrerrererterererreerterteterteeeaeeaneeaeteteteneeeeeetene 


TST6: 
NOP 
BIT @#BITS+<6*2>,TSTNMS ;DO0 THIS TEST? 
BNE 64% ; YES--BRANCH 
JMP TST7 7NO--GO TO THE NEXT TEST 
64%: MOV #6 ,a#STSTNM :SET UP TEST NUMBER AND 
;CLEAR THE ERROR FLAG (SERFLG) 
JSR PC,LODPRM ;LOAD THE PARMETERS FOR THE +o 
MOV #TESTO,Q#SLPERR ;SETUP THE LOOP ON ERROR ADDRES 
MOV STSTNM,QDISPLAY ;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
MOV @#RPT ,STIMES :GET THE ITERATION COUNT 
MOVB #25. , SERMAX :MAX ERRORS ALLOWED FOR TEST 
MOV #1$,S$LPADR ;SETUP LOOP ADDRESS 
1$: MOVB a#FS,a#0PB.B+10 ;FS 
MOVB a#FT ,a#DPB.B+11 ;FT 
MOV #WEXIT6,a#BYPASS ;GO TO EXI]T6 ON ERROR 
TEST6: MOV asFC.R1 sPICKUP ‘FC’ 
MOV a#LC,R2 ;FORM LAST CYLINDER THAT 
SUB #5 ,R2 31S AVAILABLE FOR TESTING 
MOV #. ,SLPERR ;SETUP THE ERROR LOOP ADDRESS 
MOV #STACK,SP ;LOAD THE STACK POINTER 
1$: CMP R1,R2 LAST CYLINDER 
BGT EX116 :YES@-BRANCH 
MOV R1,a#D0PB.B+12 NC 
JSR RO,@#CALL.B :60, atin THE COMMAND 
ADD #4 ,a#DPB.B+12 
JSR RO,@#CALL.B £60 EXECUTE THE COMMAND 
SUB #3,a#0PB.B+12 
JSR RO,a#CAiL.B 60. EXECUTE THE COMMAND 
ADD #2,a#DPB.B+12 ;NC+3 
JSR RO,a#CALL.B :G0 EXECUTE THE COMMAND 
SUB #1 a#DPB.B+12 NC+ 
JSR RO,@#CALL.B :60 EXECUTE THE COMMAND 
ADD #3,a#DPB.B+12 5NC*5 


3807 010440 004037 025262 JSR RO,@#CALL.B 3;GO EXECUTE THE COMMAND 
3808 010444 ote 001514 ADD avic,Ri 


3809 BR 1$ 
3810 010452 000004 EX116: SCOPE ; LOOP 


3812 Pp eeeeteererererererererererrerrereerereeereereeeenereneeeeteTete 


3813 s*TEST 7 RANDOM SEEK TEST 


K 6 
CZRJAD RPOG/5S/6 aen-te at AND ae — MACY11 30A(1052) 24-MAY-79 13:59 PAGE 79 
CZRJAD.P11 28-MAR-79 11:28 SERVO ADDRESSING LOGIC NOISE GENERATOR SEQ 0075 

3815 2° THIS TEST PERFORMS RANDOM SEEK OPERATIONS BETWEEN CYLINDERS ‘FC° 
3816 3* "LC’. AFTER EACH SEEK, THE POSITION OF THE DRIVE IS VERIFIED BY 
3817 3° READING A SECTOR FROM THE CURRENTLY ADDRESSED CYLINDER AND TRACK. 
3818 3@ THE TRACK ADDRESS IS INCREMENTED FOR EACH SEEK SO THAT VERIFICATION 
3819 3@ OF POSITIONING OCCURS USING EACH HEAD. TRACK ADDRESSES ARE INCREMENTED 
sa54 ” BETWEEN PARAMTERS ‘FT* AND ‘LT’. 
3822 i ich ek ae A lk ala ai aii eit hc ris atin 
3825 010454 TST7: 
3824 010454 000240 NOP 
3825 010456 033737 001442 001234 BIT @#B1TS+<7*#2>,TSTNMS ;DO THIS TEST? 
3826 010464 001002 BNE . : :YES--BR ANCH 
3827 010466 000137 011034 JMP 110 :NO--GO TO THE NEXT TEST 
3828 010472 012737 000007 001102 64$: MOV 47 aeSTSTWR SET UP TEST NUMBER AND 
3829 sCLEAR THE ERROR FLAG (SERFiG) 
3830 010500 004737 024726 JSR PC,LODPRM ;LOAD THE PARMETERS FOR THE TEST 
3831 010504 012737 010576 001110 MOV #TEST7,a#$LPERR ;SETUP THE LOOP ON ERROR ADDRESS 
3832 010512 013777 001102 170422 MOV STSTNM,@DISPLAY ;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
3833 019520 013737 001506 001204 MOV a#RPT,STIMES 3GET THE ITERATION COUNT 

010526 112737 000031 001115 MOvVB #25. , SERMAX 7MAX ERRORS ALLOWED FOR TEST 
3835 010534 113737 001516 004135 MOVB FT,OPB.B+11 ;LOAD STARTING TRACK ADDRESS 
8 010542 112737 000105 004106 MOVB #SEEK,a#DPB.A+2 ;SEEK=COMMAND 
3837 010550 112737 000173 004126 MOVB #READHD,DPB.B+2 ;READ HEADER & DATA COMMAND 
3838 010556 013704 034632 MOV RPADR ,R4& sUNIBUS ADDRESS OF THE RH11 
3839 010562 012737 011032 001252 MOV #EXIT7, BYPASS ;ERROR TERMINATION ADDRESS 
3840 010570 012737 010576 001106 MOV #TEST7,SLPADR ;SETUP THE LOOP ON TEST ADDRESS 
3841 010576 012706 001100 TEST7: MOV #STACK,SP ;SETUP THE STACK POINTER 
3842 010602 013737 001510 004136 MOV FC,DPB.B+12 s INITIAL CYLINDER ADDRESS 
3843 010610 023737 001510 001512 CMP FC,LC sCYLINDER LIMITS THE SAME ? 
3844 010616 001422 BEQ 1$ sBR IF THEY ARE 
3845 010620 004737 023626 JSR PC, SRAND sCYCYLE THE RANDOM NUMBER GENERATOR 
3846 010624 013746 023724 MOV SHINUM,-(SP) ;USE THE HIGH RANDOM NUMBER 
3847 010630 005046 CLR - (SP) ;UPPER DIVIDEND 
3848 010632 013746 001512 MOV LC,-(SP) :FORM THE DIVISOR 
3849 010636 005216 INC (SP) 3; INCREMENT 
3850 010640 163716 001510 SUB FC, (SP) ;SUBTRACT THE LOWER LIMIT 
3251 010644 004737 023730 JSR PC,$D1V :DIVIDE 
$852 010650 062637 004136 ADD (SP)+, DPB.B+12 ;ADD THE REMAINDER _ THE INITIAL CYLINDER 
3853 010654 005726 TST sDISCARD THE QUOTENT 
cose Demat 013737 004136 004116 1s MOV oy Bele. DPB. A+12 ;COPY NEW CYLINDER ADDRESS 

64 : 

3856 010664 012737 010664 001110 MOV #. ,SLPERR ;SETUP THE ERROR LOOP ADDRESS 
3857 010672 012706 001100 MOV @STACK,SP ;LOAD THE STACK POINTER 
3858 010676 004037 025150 JSR RO,@#CALL.A 3G0 EXECUTE THE COMMAND | 
3859 010702 012737 010702 001110 MOV #. , SLPERR ;SETUP THE ERROR LOOP ADDRESS 
3860 010710 012706 001100 MOV #STACK,SP ;LOAD THE STACK POINTER 
3861 010714 113764 004104 000010 MOVB DPB.A,RPCS2(R4) ;SELECT THE DRIVE 
3862 010722 016446 000020 MOV RPLA(R4),-(SP) ;GET THE LOOK AHEAD REGISTER 
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000403 
112737 


004037 
105237 
123737 
101403 
113737 
000004 


000001 


004174 
001630 


004174 


004174 
000001 004174 
025262 
004135 
004135 001520 
001516 004135 


23: 


ASL (SP) ;ALIGN THE SECTOR ADDRESS 

ASL (SP) ALIGN THE SECTOR ADDRESS 

SWAB (SP) ;PUT ADDRESS IN LOWER BYTE 

TSTB i (SP) s1N THE 1ST 20% OF SECTOR ? 

BEQ 2$ sBR IF YES 

INCB (SP) ; INCREMENT THE SECTOR ADDRESS 
INCB (SP) ; INCREMENT THE SECTOR ADDRESS 
MOVB (SP)+,DTADPB+10 ;LOAD THE DPB 

MOV PRMLMT+22,-(SP) :PUT LAST SECTOR ADDRESS ON THE STACK 
INC (SP) ; INCREMENT IT 

CMPB (SP)*,DTADPB+10 :NEW SECTOR ADDRESS TOO LARGE ? 
BHIS 4% :BR IF NOT 

BLO 3$ sBR if ADDRESS 1S 2 GREATER 
CLRB oe RESET TO SECTOR ADDRESS 0 


4 : CONTINUE 
MOVB #1, DTADPB+10 ;RESET ADDRESS TO SECTOR 1 


3$: 
4$: 

JSR RO,@#CALL.B 3GO0 EXECUTE THE COMMAND 

INCB DPB. B+11 ; INCREMENT THE TRACK ADDRESS 

CMPB DPB.B+11,LT ;MAXIMUM ? 

BLOS EXI117 :BR IF NOT 

MOVB FT,DPB.B+11 sRELOAD STARTING TRACK ADDRESS 
EXIT7: SCOPE ;LOOP ? 
pp eeteeeneeerreerererateeeeeeeeerereeeeeeeAeeneeRKanenaKeneteraeeee 
;*TEST 10 SERVO SETTLE DOWN TEST 


Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Se Be Se Be Be Se Se Be Be Be Be Be 
se eeneeaerneerweeer#e#e.terntrnee#senerseenenetneeeee#eer 


THIS TEST VERIFIES THAT THE SERVO HAS SETTLED DOWN AND THAT 

THE DRIVE IS ON CYLINDER WHEN THE DRIVE INDICATES SEEK COMPLETE. 
RANDOM SEEKS ARE ISSUED BETWEEN CYLINDERS ‘"NC1° AND ‘NCi*IC° 

("NC1" STARTS AT VALUE ‘FC*). AT THE COMPLETION OF 1000 (10) SEEKS, 
"NC1' 1S INCREMENTED BY VALUE ‘IC* AND THE SEQUENCE IS REPEATED. 

THE TEST 1S COMPLETED WHEN ‘NC1° HAS BEEN INCREMENTED BEYOND ‘LC’. 


WHEN THE SEEK COMPLETES, THE PROGRAM READS THE DRIVE'S LOOK-AHEAD 
REGISTER (RPLA) TO DETERMINE THE ADDRESS OF THE SECTOR ROTATING INTO 
POSITION. THE PROGRAM THEN ISSUES A WRITE HEADER AND DATA COMMAND 

FOR THAT SECTOR. IF THE DRIVE'S POSITIONER HAS NOT SETTLED DOWN OR 

If THE POSITIONER 1S NOT ON CYLINDER (IF THE DRIVE IS AN RPOG, THE 

OFF CYLINDER CONDITION MUST LAST FOR AT LEAST 800 US), THE DRIVE 

WILL REPORT A ‘WRU’ ERROR. (RPOQ5/6°S MAY ALSO REPORT “"NHS' ERROR UNDER 
ERRORS IN THIS TEST INDICATE THAT THE SERVO SYSTEM MAY NOT BE ADJUSTED 
CORRECTLY, THAT THE DRIVE IS MALFUNCTIONING, OR THAT A PACK WITH 
MARGINAL SERVO TRACKS IS MOUNTED ON THE DRIVE. 


THIS TEST USES THE EXTENTION BITS IN THE LOOK-AHEAD REGISTER TO DETERMINE 
WHETHER OR NOT IT CAN PICK UP THE SECTOR ROTATING INTO POSITION. THE 
TEST 1S OPTIMIZED SUCH THAT IF THE DRIVE SIGNALS SEEK DONE WITHIN 

THE FIRST 80% OF THE SECTOR CURRENTLY UNDER THE HEAD, THE TEST WILL 

TRY TO ADDRESS THE NEXT SECTOR. BASED ON OBSERVATION, THE PROGRAM 

a Hi START THE OPERATION WITHOUT LOSING A REVOLUTION MOST OF 

TH . 


THIS TEST 1S VALID ONLY IF THE OPERATION IS STARTED WITHIN A FEW 
HUNDRED MICRO-SECONDS AFTER SEEK DONE OCCURS. THE NECESSARY TIME 
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3919 

3920 

3921 

3922 

3923 011034 

3924 011034 000240 

3925 011036 033737 001444 
3926 011044 001002 

3927 011046 000137 012140 
aes 011052 012737 000010 
3930 011060 004737 024726 
3931 011064 012737 011242 
3932 011072 013777 001102 
3933 011100 013737 001506 
3934 011106 112737 000031 
3935 011114 012737 011122 
3936 011122 

3937 011122 112737 000105 
3938 011130 112737 000161 
3939 611136 113737 001516 
3940 011144 013737 001510 
3941 011152 013737 001510 
3942 011160 013737 001510 
3945 011166 013737 001514 
3944 011174 012737 176000 
3945 011202 012737 050202 
3946 011210 005000 

3947 011212 004737 030476 
3948 011216 005001 

3949 011220 113701 004104 
3950 011224 013704 034632 
3951 011230 004737 042664 
3952 011234 012737 012136 
3953 011242 

3954. 011242 012737 011242 
3955 011250 012706 001100 
3956 011254 012737 000340 
3957 011262 005737 001244 
3958 011266 001415 

3959 011270 100405 

3960 011272 017746 170076 
3961 011276 0135746 001374 
3962 011302 000404 

3963 011304 017746 170076 
3964 011310 013746 001406 
3965 011314 012776 012072 
3966 011322 012777 027170 
3967 011330 012737 000010 
3968 0113536 012764 000040 
3969 011344 110164 000010 
3970 011350 013764 004116 
3971 011356 013737 004116 
3972 011364 112764 000105 
53973 011372 005037 177776 
3974 011376 105764 000012 
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001234 


001102 


001110 


001106 
004106 


004172 


001252 
001110 
177776 


000000 
023304 
001344 
000010 


000034 
001270 
000000 


SERVO SETTLE DOWN TEST 


5° TIME DEPENDENT PARAMETERS OCCUR FREQUENTLY ENOUGH WITHIN THE REQUIRED 
:* RANGE TO PERMIT THIS TEST TO BE EFFECTIVE. 
ppeeeeereercercereereeeererererreeereerererenreereereeererereTeee 
TST10: 

NOP 


BIT @#B11S+<10*2>,TSTNMS ;DO THIS TEST? 
64% ; YES--BRANCH 

TST11 ;NO--GO TO THE NEXT TEST 

64$: MOV #10, a#STSTNM ;SET UP TEST NUMBER AND 
CLEAR THE ERROR FLAG (SERFLG) 

JSR PC ,LODPRA ;LOAD THE PARMETERS FOR THE TEST 
MOV MTESTIO,@#SLPERR ;SETUP THE LOOP ON ERROR ADDRESS 
MOV STSTNM,Q@DISPLAY ;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
MOV Q#RPT STIMES GET THE ITERATION COUNT 
MOVB #25. ,SERMAX ;MAX ERRORS ALLOWED FOR TEST 
MOV #1$,SLPADR ;SETUP THE LOOP ADDRESS 


1$: 
MOvB #SEEK ,@#DPB.A+2 ;SEEK=COMMAND 
MOvB #WRITE,DTADPB+2 ; COMMAND 
MOvB FT,DTADPB+11 ; TRACK ADDRESS FOR THE WRITE 
MOV FC,DPB.A+12 ;CYLINDER ADDRESS FOR THE SEEK 
MOV FC ,DTADPB+12 sCYLINDER ADDRESS FOR THE WRITE 
MOV FC,NCI ;STARTING CYLINDER 
MOV IC,DELTA sCYLINDER INCREMENT VALUE 
MOV #-<256.*4.>,DTADPB+4 ;WORD COUNT 
MOV #BUFFER,DTADPB+6 ;BUFFER ADDRESS 
CLR RO sPATTERN POINTER (WC PATTERN) 
JSR PC,SETBUF ;LOAD THE WRITE BUFFER 
CLR R1 ;CLEAR REGISTER 
MOVB DPB.A,R1 ;LOAD DRIVE ADDRESS 
MOV RPADR,RS sUNIBUS ADDRESS OF THE RH11 
JSR PC, CLRQUE ;CLEAR THE OPERATION QUEUES 

ve MOV WEXITIO,BYPASS ;ERROR EXIT FROM TEST 

S : 

MOV #. ,SLPERR ;SETUP THE ERROR LOOP ADDRESS 
MOV #STACK,SP ;LOAD THE STACK POINTER 
MOV rR? aers 7SET PRIORITY 10 7 
TST CLKSTA 735t€ WHICH CLOCK ON SYSTEM 
BEQ 3$ ;BR 1F NO CLOCK 
BM] 1$ sBR IF KWil-L CLOCK 
MOV aPKvV,-(SP) ;SAVE THE VECTOR 
MOV PKV,-(SP) ;SAVE THE VECTOR ADDRESS 
BR 23 3; CONTINUE 

1$: MOV @LKV,-(SP) ;SAVE THE ‘L* CLOCK VECTOR 
MOV LKV,-(SP) ;SAVE THE VECTOR ADDRESS 

2%: MOV #1ST10B,a(SP) ; CHANGE THE VECTOR 

3$: MOV #DORTI ,ARPVEC >CHANGE THE RPO4/RPOS VECTOR 
MOV #8., SEKTMR ;LOAD THE SEEK TIMER 
MOV #BITOS,RPCS2(R4) ;INIT THE MASSBUS 
MOVB R1,RPCS2(R4) ;RESELECT THE DRIVE 
MOV DPB.A+12,RPCA(R4) ;LOAD THE CYLINDER ADDRESS 
MOV DPB.A+12,CYL.DS ;CYLINDER ADDRESS FOR ERROR MESSAGE 
MOVB MSEEK,RPCS1(R4) ;START THE SEEK 
CLR aePs sCLEAR THE PRIORITY 

4$: TS1B RPDS1(R4) sHAS THE DRIVE FINISHED ? 


SEQ 0077 
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3975 011402 100402 BA] 5$ 7BR IF IT HAS 

3976 011404 00000: WAIT ;WAIT FOR THE OPERATION TO COMPLETE 

3977 011406 000773 BR 4$ ; CONTINUE 

3978 011410 012737 000340 177776 S$: MOV #PR7 ,aaPs : CHANGE PRIORITY TO MAX 

3979 011416 032764 040000 000012 BIT #BITIG,RPDSI(RG) ;ERROR 

5980 011426 001412 BEQ 6$ :BR IF Noi . 

3981 011426 012702 004104 MOV #OPB.A,R2 :DPB POINTER 

3982 011432 004737 042202 JSR PC, SVRH11 SAVE THE REGISTERS 

3983 011436 104023 ERROR 23 TERROR DURING SEEK 

3984 011440 012764 000040 000010 MOV #81105, RPCS2(R4) ; INIT THE o antes 

3985 011446 110164 000010 MOVB R1,RPCS2(R ;RESELECT THE D 

3986 011452 012777 037544 023154 6$: MOV #ISR, SRPVEC SETUP THE RPOL/RPOS VECTOR 

3987 011460 005737 001244 TST CLESTA WHICH CLOCK 

3988 011464 001405 BEQ TSTIOA :BR IF NONE 

3989 011466 016676 000002 000000 MOV 2(SP) ,a(SP) RELOAD THE CLOCK VECTOR 

3990 011474 062706 000004 ADD #4,SP CORRECT THE STACK POINTER 

3991 011500 TSTIOA: 

3992 011500 012757 011500 001110 MOV #. SLPERR ;SETUP THE ERROR LOOP ADDRESS 

3993 011506 012706 001100 MOV #STACK SP ;LOAD THE STACK POINTER 

3994 011512 110164 000010 MOVB R1,RPCS2(R4) >SELECT THE DRIVE 

3995 011516 016446 000020 MOV RPLA(R4),-(SP) :GET THE LOOK AHEAD REGISTER 

3996 011522 006316 ASL (SP) ALIGN THE SECTOR ADDRESS 

3997 011524 006316 ASL (SP) ALIGN THE SECTOR ADDRESS 

3998 011526 000316 SWAB (SP) PUT ADDRESS IN LOWER BYTE 

3999 011530 122766 000300 000001 CMPB #300,1(SP) ;1N THE LAST 20% OR SECTOR ? 

4000 011536 001001 BNE 2$ :BR IF NOT 

4001 011540 105216 INCB (SP) ; INCREMENT THE SECTOR ADDRESS 

4002 011542 105216 2%: INCB (SP) ; INCREMENT THE SECTOR ADDRESS 

4003 011544 112637 004174 MOVB (SP)+, DTADPB+10 ;LOAD THE DPB 

4006 011550 013746 001630 MOV PRMLMT+22,-(SP) ;PUT MAXIMUM SECTOR ADDRESS ON THE STACK 

4005 011554 005216 INC (SP) : INCREMENT PAST THE MAXIMUM ADDRESS 

4006 011556 122637 004174 CMPB (SP)+,DTADPB+10 ;NEW SECTOR ADDRESS TOO LARGE ? 

4007 011562 101007 BHI 4$ :BR IF NOT 

4008 011564 103403 , BLO 3$ ;BR IF ADDRESS IS 2 GREATER THAN MAX) MUM 

4009 011566 105037 004174 CLRB DTADPB+10 ;RESET TO SECTOR ADDRESS 0 

4010 011572 000403 BR 4$ ; CONT INUE 

4011 011574 112737 000001 004174 3%: MOVB #1 ,.DTADPB+10 Ja ted. ADDRESS TO SECTOR 1 

4012 011602 012703 004170 4$: MOV #DTADPB+4 ,R3 ;POINTER 

40135 011606 012764 000111 000000 MOV #DRVCLR,RPCSI(R4) ;CLEAR THE DRIVE 

4014 011614 012364 000002 MOV (R3)+,RPWC(R4) ;LOAD THE WORD COUNT 

4015 011620 012364 000004 MOV (R3)+,RPBA(R4) :LOAD THE BUFFER ADDRESS 

4016 011624 012364 000006 MOV (R3)+,RPDA(R4) ;LOAD THE TRACK/SECTOR ADDR 

4017 011630 005037 004202 CLR DTADPB+16 sRESET ‘DONE’ INDICATOR 

4018 011634 012737 004164 034544 MOV #DTADPB,TRNSWT ;LOAD ‘TRANSFER’ DPB ADDRESS 

4019 011642 010137 034616 MOV R1,DTUW : ADDRESS OF DRIVE TRANSFERING 

4020 011646 112761 000001 034474 MOVB #1,DRVACT(R1) SET DRIVE ACTIVE seer Anee 

4021 011654 006301 ASL R1 :SHIFT DRIVE ADDRESS 

4022 011656 012761 001750 034576 MOV 11000. STIMER(R1) ; SETUP THE OPERATION TIMER 

4023 011664 006201 ASR R1 RESTORE R1 

4024 011666 013764 004166 000000 MOV DIADPB+2,RPCS1(R4) ;START THE Th 

4025 011674 005037 177776 CLR aaPs ;CLEAR THE PRIORIT 

4026 011700 004037 025662 JSR RO,DRVCLI WAIT FOR OPERATION TO COMPLETE 

4027 011704 023727 001346 001750 5%: CMP SEKCNT, #1000. FINISHED SEEKS ? 

4028 011712 001026 BNE 6% :BR IF NOT 

4029 011714 005037 001346 CLR SEKCNT ;CLEAR THE SEEK COUNT 

4030 011720 063737 001514 601532 ADD IC,NC1 :ADD THE INCREMENT 
| 
} 
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CZRJAD.P11 28-MAR-79 11:28 110 SERVO SETTLE DOWN TEST SEQ 0079 
4031 011726 023737 001532 001512 CMP wCl1,Le sEXCEEDED ee CYLINDER LIMIT ? 
4032 011734 103100 BHIS ExiT16 [BR If IT WAS 
4033 011736 013737 001512 001350 MOV LC,DELTA ;GET THE NEXT “ZONE® ADDRESS 
4034 0117464 163737 001532 001350 $uB NC1,DELTA ;CHECK THE DIFFERENCE 
4035 011752 023737 001514 001350 CMP IC, DELTA : DIFFERENCE GREATER THAN THE INCREMENT ? 
4036 011760 101003 BHI 6$ IT 1S 
4037 011762 013737 001514 001350 MOV IC, DELTA cose Te ICREMENT PARAMETER 
4038 011770 005237 001346 6$: INC SEKCNT ;COUNT THE NEXT SEEK 
4039 011774 023737 001510 001512 CMP FC,LC BEGINNING AND ENDING CYLINDERS THE SAME ? 
4040 012002 001002 BNE ;BR IF NOT 
4041 012 000137 011242 JMP TESTIO sBR IF THEY ARE 
4042 012010 013737 001532 604116 /7$: MOV NC1,DPB.A+12 ;RESET THE CYLINDER ADDRESS 
4043 012016 004737 023626 JSR PC, SRAND ;CYCLE THE RANDOM NUMBER GENERATOR 
4044 012022 013746 023724 MOV SHINUR, (SP) ;USE THE HIGH RANDOM NUMBER 
4045 012026 005046 CLR -(SP) ;CLEAR THE UPPER DIVIDEND 
4046 012030 013746 001350 MOV tt Ne -(SP) ;FORM THE DIVISOR 
4047 012034 005216 INC (SP) > INCREMENT 
4048 012036 004737 023730 JSR PC,$DIV sDIVIDE 
4049 012042 062637 004116 ADD ($B)*, DPB.A+12 eo THE REMAINDER - THE INITIAL CYLINDER 
4050 0120466 005726 TST (S$ ISCARD THE QUOTEN 
4051 012050 023737 004116 004176 CMP -e arte. ptapppeia. 3 SAME CYLINDER SELECTED AS LAST TIME ? 
4052 012056 001754 BEQ 7% 7 BR if 17 WAS 
4053 012 013737 004116 004176 MOV DPB. _ DTADPB+i2 ; COPY NEW CYLINDER ADDRESS 
4054 012066 000137 011242 JMP TESTI 3; CON NT INUE 
4055 012072 005337 001344 TSTIOB: DEC sectien :DECREMENT THE SEEK TIMER 
4056 012076 001016 BNE 1$ ;CONTINUE IF NOT DONE 
4057 012100 012702 004104 MOV #DPB.A,R2 DPB ADDRESS 
4058 012104 004737 042202 JSR PC,SVRH11 ;SAVE THE REGISTERS 
4059 012110 104024 ERROR 24 ; TIMEOUT DURING SEEK 
4060 012112 012764 000040 000010 MOV #BITOS,RPCS2(R4) ;INIT THE MASSBUS 
4061 012120 110164 000010 MOvVB R1,RPCS2(R4) sRESELECT THE DRIVE 
4062 012124 016676 000002 000000 MOV 2(SP) ,a(SP) sRESTORE THE CLOCK VECTOR ADDRESS 
4063 012132 000401 BR Ex1T10 ;ABORT THE TEST 
4064 012134 000002 1$: RT1 sRETURN 
nae 012136 000004 EX1T10: SCOPE ;LOOP ? 
4 
ae soaet REET ERETAETAKEKRTEKETTAEREERKeTeeteeeeeekeeeteteteeeee 
anes s*TEST 11 ALL SEEKS TEST 
4 
4070 3* THIS TEST VERIFIES THAT THE DISK DRIVE CAN SEEK FROM EACH CYLINDER 
ny 4 3* TO ALL OTHER CYLINDERS. 
4 ;* 
4073 3° BEGINNING WITH CYLINDER ‘FC’, THE TEST SEEKS TO EACH CYLINDER 
4074 :* BETWEEN ‘FC* AND ‘LC* FROM CYINDER ‘FC*. THE BEGINNING CYLINDER 
4075 5* ADDRESS IS INCREMENTED AND THE TEST SEEKS BETWEEN THE NEW CYLINDER 
4076 2% ADDRESS AND ALL CYLINDERS BETWEEN ‘FC* AND ‘LC'. THE SEQUENCE 
ot :* CONTINUES UNTIL ALL CYLINDERS HAVE BEEN CHECKED. 
aN sp ereeererrrerererereerererenreeeerereeieeeereeeeKenenereeee eee ee 
4080 012140 TST11 
4081 012140 000240 NOP 
4082 012142 033737 001446 001234 BIT O#BITS+#<11#2>.1STNMS ;D0 oy TEST? 
4083 012150 001002 BNE > 4$ iYE S--BRANCH 
4084 012152 000137 012360 
4085 012156 012737 000011 001102 64$: MOV #11,a#STSTNM > SET UP TEST NUMBER AND 
4086 sCLEAR THE ERROR FLAG (SERFLG) 


JMP T$T12 ;NO--GO 10 THE NEXT TEST | 
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CZRJAD.P11 28-MAR-79 11:28 
4087 012164 006737 024726 
4088 012170 012737 012300 
4089 012176 013777 001102 
4090 012206 013737 001506 
4091 012212 112737 000031 
4092 012220 012737 012226 
4093 012226 113737 001524 
4094 012234 113737 001524 
4095 0122462 113737 001516 
4096 012250 113737 001516 
4097 012256 013737 001510 
4098 012264 013737 001510 
4099 012272 012737 012356 
4100 012300 012706 001100 
4101 012304 
4102 012304 004037 025452 
4103 012310 004037 025262 
4106 012314 063737 001514 
4105 012322 023737 001512 
4106 012330 002365 
4107 012332 013737 001510 
4108 012340 063737 001514 
4109 012346 023737 001512 
4110 012354 002353 
4111 012356 000004 


READ/WRITE TEST MACYI1 SOA( 
111 ALL SEEKS T 


- PC,LODPRA 
#TEST11 ,@#SLPERR 
STSTNM, DISPLAY 
asRPT STIMES 


WYIWwYWwo-— 


00415 


oS 
o 
os 
Nm 
uw 
ro 


004156 
004156 


004156 
004136 
004136 


+12 
@STACK,SP 


RO,@@CALL. 
RO,aaCALL. 


1111, BYPASS 


Cc 7 
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;LOAD THE TEST NUMBER INTO THE 
:GET THE ITERATION COUNT 

sMAX ERRORS ALLOWED FOR TEST 
;SETUP THE LOOP ADDRESS 


SEQ 0080 
;LOAD THE PARMETERS FOR THE TEST 
SETUP THE LOOP ON ERROR ADDRESS 
DISPLAY REGISTER 
; SECTOR ADDRESS 
SECTOR ADDRESS 
; TRACK ADDRESS 
7; TRACK ADDRESS 
STARTING CYLINDER ADDRESS 
STARTING CYLINDER ADDRESS 
;TEST ABORT EXIT 
SETUP THE STACK POINTER 


3GO EXECUTE THE COMMAND 

;GO EXECUTE THE COMMAND 

; INCREMENT THE ENDING CYLINDER ADDRESS 
;CHECK IF EXCEEDING MAXIMUM 

;BR IF NOT 

RESET ENDING CYLINDER ADDRESS 

; INCREMENT THE STARTING ADDRESS 
sEXCEEDING MAXIMUM ? 

;BR IF NOT 

LOOP ? 
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CZRJAD.P11 28-MAR-79 11:28 111 ALL SEEKS TEST 
4115 
4114 -SBTTL *e®* TIMING TESTS eee 


4115 


STONE ONST ONS TON STEN STONE ONSEN STON SONS EN JONSON SONS ONS ONES ONSEN: 
STONSTENSTENSZ ONS SONS ENS ZENS ZENS SONS SONS JON JONSSON JONSSON JONSSON JON: 
STONSTONSSOENSSONS JONSSON SZ ONS JONSSON SONS SONS JON JON JONSON J e\ JON aN: 


s*THE TIMING TESTS WILL ENSURE THAT THOSE FUNCTIONS BEING 
s*TIMED ARE WITHIN THE TOLERANCES SPECIFIED IN THE “’RPOG 
s*ENGINEERING SPECIFICATIONS". 

s*THE SEEK TIMING WILL BE PERFORMED USING EXPLICIT SEEK 

> *OPERATIONS. AT THE COMPLETION OF EACH OF THE TIMING 
atte THE MINIMUM, MAXIMUM AND AVERAGE TIMES WILL BE 
seTy ° 


STING SNOT ENOS NOS NO Ne Ne Ne Ne Ne Nes Nes Nes Nes Nes Nes Nes s\n 
STINMT NOLEN NOZ NOS NO NO NO Ne NO Ne Ne Ne Nes Nes Nes Nes \e 
STINT NMZ NO NO NO Ne NO Ne Ne Ne Ne Ne Ne Nes Nes Ness \es\e 


sy eeeererereerererrrrererererereeeeetereeeeneReAReeReeeeeeeeAeAeee 


s*TEST 12 ROTATIONAL SPEED TIMING TEST 


SEQ 0081 


i* THIS TEST WILL START A SEARCH TO CYLINDER 0, ; 
:* 0. AS SOON AS THE INTERRUPT OCCURS, THE GO BIT IS SET AGAIN 
te AND THE OPERATION IS TIMED. THIS PROCEDURE IS REPEATED 10 
i TIMES THEN THE AVERAGE TIME IS CALCULATED AND CHECKED TO 
:* ENSURE IT IS WITHIN TOLERANCE: 
:* 16.67 MS/REV + OR = 2% IF 6OHZ 
i* 16.67 MS/REV + OR = 2.5% IF SOHZ. 
sy eeeeererrerererererrerererereererenereeeeenAReRereeeKeReeeeAee 
012360 1$112: 
012360 000240 NOP 
012362 033737 001450 001234 BIT a#BITS+<12*2>,TSTNMS ;DO THIS TEST? 
012370 001002 BNE ous ; YES=-BRANCH 
012372 000137 013116 JMP 113 :NO=-GO TO THE NEXT TEST 
012376 012737 000012 001102 64%: Mov Hi2,asSTSINM —7SET UP TEST NUMBER AND 
:CLEAR THE ERROR FLAG (SERFLG) 
012404 004737 024726 JSR PC, LODPRM [LOAD THE PARMETERS FOR THE TEST 
012410 012737 012360 001110 MOV #TST12,a#SLPERR :SETUP THE ERROR LOOP ADDRESS 
012416 013777 001102 166516 MOV STSTNM.@DISPLAY ;:LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
012424 013737 001506 001204 MOV aWRPT.STIMES | ;GET THE ITERATION COUNT 
0124632 112737 000031 001115 MOVB #25. , SERMAX MAX ERRORS ALLOWED FOR TESI 
012440 005737 001244 TST aeCLKSTA KWIT-P CLOCK? 
012444 003002 BGT 1$ ;YES=-START TEST 
012446 000137 013116 JMP TS113 NO=-GO TO NEXT TEST 
012652 012737 12452 001106 18: MoV #1$,$LPADR SSETUP LOOP ADDRESS 
012460 004037 027008 JSR RO, a#SRCHOO :D0 A MASSBUS INIT & RECAL 
012464 000402 BR 2$ RETURN HERE IF NO ERROR 
012466 000137 013114 JMP EXIT12 TRETURN HERE IF ERROR 
012472 013764 001510 000034 2%: Mov AMFC,RPCA(RG) ZFC 
012500 013746 001524 MOV awFS,=(SP) ZFS 
012504 113766 001516 000001 MOVB = a#FT. 1(SP) IFT 
012512 012664 000006 MOV (SP)*,RPDACR4) :LOAD FI/FS 


as 
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CZRJAD.P11 28-MAR-79 11:28 
4169 012516 012737 013114 
4170 012524 005005 
4171 012526 012703 002774 
4172 012532 032737 000100 
4173 012540 001402 
4174 012542 012703 003004 
4175 012546 012706 001100 
4176 012552 012701 000012 
4177 012556 004737 027172 
4178 012562 012777 012770 
4179 012570 012777 027170 
4180 012576 005077 1666 
4181 012602 012777 000131 
4182 012610 012714 00013 
41835 012614 000001 
4184 012616 042777 000101 
4185 012624 032764 040000 
4186 012632 001415 
4187 012634 104412 
4188 012636 012702 004164 
4189 012642 006737 042202 
4190 012646 012764 000040 
4191 012654 013764 004164 
4192 012662 104413 
4193 012664 104017 
4194 012666 005077 166510 
4195 012672 012714 000131 
4196 012676 012777 000131 
4197 012704 000001 
4198 012706 042777 000101 
4199 012714 032764 040000 
4200 012722 001415 
4201 012724 104412 
4202 012726 012702 004164 
4203 012732 004737 042202 
4204 012736 012764 000040 
4205 012744 013764 004164 
4206 012752 104413 
4207 012754 104017 
4208 012756 004737 027236 
4209 012762 005301 
4210 012764 003304 
4211 012766 000424 
4212 012770 042777 000101 
4213 012776 005037 177776 
4214 013002 012600 
4215 013004 005726 
4216 0130 104412 
4217 013010 012702 004164 
4218 013014 004737 042202 
4219 013020 012764 000040 
4220 013026 013764 004164 
4221 013034 104413 
4222 013036 104020 
4223 013040 
4224 013060 012764 000040 
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ROTATIONAL SPEED TIMING TEST 
001206 MOV WEXITI2,SESCAPE ;;ESCAPE TO EXITI2 ON ERROR 
CLR RS [COUNT UP 
MOV #T7A,R3 [60HZ PARAMETERS 
001220 BIT #su06 asC.SwR 360 HZ? 
BEQ $112 :YES=-BRANCH 
MOV 1178 LR [NO-=50 HZ PARAMETERS 
TESTI2: MOV #STACK,SP [SETUP STACK 
MOV #10.,R1 TIME 13 SEARC CHES 
JSR PC ,asSTRIMR SINITIALIZE THE TIMERS 
166604 MOV #78, aPKv :SETUP VECTOR IN CASE OF OVERFLOW 
022036 MOV #DORTI,AaRPVEC :SETUP RPO4/5/6 VECTOR 
1$: CLR aPxB [START COUNTING AT ZERO 
166570 MOV #131, aPKCS SINT.EN., COUNT UP AT 100KHZ 
MOV #SEARCH, (RG) =: START A SEARCH 
WAIT [WAIT ON INTERRUPT 
166554 BIC #101, aPKCS :STOP THE CLOCK 
000012 BIT #BITIG,RPDSI(RG) s ERROR? 
BEQ 2$ ;NO-~BRANCH 
SAVREG SAVE RO-RS 
MOV #DTADPB,R2 ‘DPB POINTER 
JSR PC, a#SvRH11 “SAVE ALL THE RH11/RPO4 REGISTERS 
000010 MOV #BITOS,RPCS2(R4) :MASSBUS CLEAR 
000010 MOV A#DTADPB,RPCS2(R4) ;SELECT DRIVE 
RESREG sRESTORE RO-R5S 
ERROR 17 
23: CLR aPKB :START THE COUNT AT ZERO 
MOV WSEARCH,(RG) START A SEARCH 
166474 MOV #131, aPKCS ‘START THE CLOCK 
WAIT ‘WAIT ON INTERRUPT 
166464 BIC #101, aPKCS :STOP THE CLOCK 
000012 BIT #BITIG. RPDSI(RG) 31S “ERR=1°? 
EQ 3$ : NO=-BRANCH 
SAVREG [SAVE RO-R5 
MOV #DTADPB,R2 [DPB POINTER 
JSR PC, a#SVRH11 ‘SAVE ALL THE RH11/RPO4 REGISTERS 
000010 MOV #BITOS,RPCS2(R4) ;MASSBUS CLEAR 
000010 MOV a#DTADPB,RPCS2(R4) : SELECT DRIVE 
RESREG SRESTORE RO-R5 
ERROR 17 DISK ERROR OCCURRED 
3$: JSR PC, a# COUNT [UPDATE THE COUNT 
DEC R1 : DONE? 
BGT 1$ :NO=-BRANCH 
BR aS [YES=-GO TO THE EXIT 
166402 7%: BIC #101, aPKCS [STOP THE CLOCK 
CLR aaPs “DROP THE PRIORITY 
MOV (SP)+,RO [PC OF WALT#2 
TST (SP)4 ;POP THE PS FROM THE STACK 
SAVREG SAVE RO-R5 
MOV #DTADPB,R2 ‘DPB POINTER 
JSR PC, a#SvRH11 “SAVE ALL THE RH11/RPO4 REGISTERS 
000010 MOV #BITOS,RPCS2(R4)- sMASSBUS CLEAR 
000010 MOV AMDTADPB,RPCS2(R4) : SELECT DRIVE 
RESREG :RESTORE RO-R5 
“ft ERROR 20 “CLOCK OVERFLOWED 
000010 MOV WB1T0S,RPCS2(R4) ;MASSBUS INIT. 
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4225 013066 013764 004164 000010 MOV @FDTADPB,RPCS2(R4) [SELECT DRIVE 


CZRJAD.P11 28-MAR-79 11:28 112 ROTATIONAL SPEED TIMING TEST SEQ 0083 
4226 013054 006737 0246212 JSR PC ,aeST.CLK 3 IN iTIALIZE THE C 
4227 013060 012777 037544 021546 MOV #ISR,ARPVEC RESTORE SAI RPOL TS 76 INT. VECTOR 
4228 013066 032737 000100 001220 BIT #Sw06,aeC.SWR 360 HZ? 
4229 013074 001004 BNE 9$ :NO <= BRANCH 
4230 013076 004037 027370 JSR RO, aeTYPTIM ;60 TYPE THE TIMES 
4231 013102 002774 T7A POINTER 
4232 013104 000403 ae EX1T12 £60 TO EXIT 
4233 013106 9$: 
4234 013106 004037 027370 JSR RO, aaTYPTIM :60 TYPE THE TIMES 
4235 013112 003004 178 POINTER 
eit, 013114 000004 EXIT12: SCOPE “LOOP ? 
4238 
4239 p ,eeeeererrererrrerereerererererereeereneeteneeetenereeeereneeeeee 
£240 s*TEST 13 ONE CYLINDER SEEK TIMING TEST 
4242 pe THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE THE 
4243 i* CYLINDER BY ONE UNTIL THE INCREMENT IS GREATER THAN THE 
4244 30 CYLINDER "LC", THEN REVERSE SEEK TO CYLINDER ‘FC’. THE 
6245 ;* TIME TO PERFORM EACH SEEK IS CHECKED TO ENSURE IT DOES NOT 
4246 :* EXCEED THE MAXIMUM TIME PERMITTED FOR A ONE CYLINDER SEEK. 
<per :* THE TIME MUST BE LESS THAN 10MS. 

4 ° 

4249 sp eeteeeererrererererereerereerererereerenenaeeneeReerenereneeneee 
4250 013116 TS113: 
4251 013116 000240 NOP 
46252 613120 033737 001452 001234 BIT a#BITS+<13"2>, TSTNMS ;D0 THIS TEST? 
4253 013126 001002 BNE + ~ YES--BRANCH 
4254 013130 000137 013562 JP :NO=-GO TO THE NEXT TEST 
4255 013134 012737 000013 001102 64$: MOV nis aeststem 7SET UP TEST NUMBER AND 
4256 CLEAR THE ERROR FLAG (SERFLG) 
4257 013142 004737 024726 JSR PC, LODPRM [LOAD THE PARMETERS FOR THE TEST 
46258 013146 012737 013116 001110 MOV #15113, a#SLPERR :SETUP THE ERROR LOOP ADDRESS 
4259 013154 013777 001102 165760 MOV STSTNM,@DISPLAY ;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
4260 013162 013737 001506 001204 MOV awRPT,STIMES GET THE ITERATION COUNT 
4261 013170 112737 000031 001115 MOVB #25. , SERMAX ;MAX ERRORS ALLOWED FOR TES? 
46262 013176 005737 001244 TST aeCLKSTA rKwW1l-P CLOCK? 
4263 013202 003002 BGT 1$ ZYES=-START TEST 
4264 0132046 000137 013562 JMP TS114 :NO--GO TO NEXT TEST 
4265 013210 012737 013210 001106 1$: MOV #1$,SLPADR :SETUP THE LOOP ADDRESS 
4266 013216 004037 027006 JSR RO, a#SRCHOO :D0 A MASSBUS INIT. AND RECAL 
4267 013222 000402 ae 2$ :NO ERROR RETURN 
4268 013224 000137 013560 JMP EX1T13 sERROR RETURN=-SCOPE LOOP CALL 
4269 013230 012703 003014 23: MOV #710,R3 :PARAMETER POINTER 
4270 013234 012737 013560 001206 MOV #EXIT13,$ESCAPE :;ESCAPE TO EXIT13 ON ERROR 
4271 013242 012706 001100 TEST13: MOV #STACK,SP SETUP STACK 
4272 0132466 013737 001510 004176 MOV FC, a#DTADPB+12 :START WITH BEGINNING CYLINDER 
4273 013254 005237 004176 INC DTADPB+12 > INCREMENT THE BEGINNING CYLINDER 
4274 013260 005005 CLR RS :SET THE UP/DOWN SWITCH TO UP 
4275 013262 004737 027172 JSR PC ,a#STRIMR INITIALIZE THE TIMERS 
4276 013266 012777 013454 166100 MOV #7$,aPKV SETUP INCASE OF OVERFLOW 
4277 013274 012777 027170 021332 MOV #DORTI.ARPVEC  :SET RPO4/S/6 VECTOR 
4278 013302 005077 166074 1$: CLR aPKB >START THE COUNTER AT ZERO 
4279 013306 013764 004176 000034 MOV AFDTADPB+12,RPCA(RG) :LOAD DESIRED CYLINDER 
4280 013314 012714 000105 MOV WSEEK, (RG) sSTART A SEEK 
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CZRJAD.P11 28-MAR-79 11:28 113 ONE CYLINDER SEEK TIMING TEST SEQ 0084 | 
4281 013320 012777 000131 166052 MOV #131 ,aPKCS sSTART THE CLOCK : 
4282 013326 000001 wAlT 7WAIT ON INTERRUPT 
4283 013330 042777 000101 166042 BIC #101 ,aPKCs STOP THE CLOCK 
4284 013336 032764 040000 000012 BIT #BITI4, mPOSTERG) ZANY DISK ERRORS? 

4285 013344 001415 BEQ 2% wy CH 

4286 013346 104412 SAVREG AVE RO-RS | 

4287 013350 012702 004164 MOV #DTADPB,R2 ‘Pe POINTER 

4288 013354 006737 042202 JSR PC, a#SvRHi1 SAVE ALL THE RH11/RPOG REGISTERS 

4289 013360 012764 000040 000010 MOV #BITOS,RPCS2(R4) :MASSBUS CLEAR 

4290 013366 013764 004164 000010 MOV asDTADPB,RPCS2(R4) gSELect DRIVE 

4291 013374 1046413 RESREG :RESTORE RO-R5S 

4292 013376 104017 ERROR 17 REPORT THE ERROR 

4293 013400 004737 027236 2: JSR PC, a#COUNT COUNT THIS SEEKS TIME 

4294 013404 004737 026564 JSR PC, aa#TWwOMS [STALL FOR 2 MILLISECONDS 

46295 013410 005705 TST RS ;UP OR DOWN? 

4296 013412 001011 BNE 4$ 7 DOWN--BRANCH 

4297 013414 005237 004176 3$: INC a#DTADPB+12 MOVE TO NEXT CYLINDER 

4298 013420 023737 004176 001512 CMP a#DTADPB+12,LC ;OUT OF CYLINDERS? 

4299 013426 002725 BLT 1$ zNO--GO DO THE NEXT SEEK 

4300 013430 012705 177777 MOV #-1,R5 7SET UP/DOWN SWITCH TO DOWN 

4301 013434 000722 Be 1$ G0 DO THE NEXT SEEK 

4302 013436 005337 004176 4$: DEC asDTADPB+12 MOVE TO NEXT CYLINDER 

4303 013442 023727 004176 000000 CMP @#DTADPB+12,#0 ;O0UT OF CYLINDERS? 

6304 013450 003314 BGT 1$ zNO--GO DO THE NEXT SEEK 

4305 013452 000424 BR 8% :GO TO THE EXIT a 

4306 013454 042777 000101 165716 7$: BIC #101, aPKCS STOP THE CLOCK 

4307 013462 005037 177776 CLR aePs :DROP THE PRIORITY 

4308 013466 012600 MOV (SP)+,RO :PC OF WAIT#2 

4309 013470 005726 TST (SP)¢ :POP THE PS FROM THE STACK 

4310 013472 104412 SAVREG 7SAVE RO-R5 

4311 013474 012702 004164 MOV #DTADPB,R2 DPB POINTER 

4312 013500 004737 042202 JSR PC, a#SVRH11 sSAVE ALL THE RH11/RPO4 REGISTERS 

4313 013504 012764 000040 000010 MOV #BITOS,RPCS2(R4) ;MASSBUS CLEAR 

4314 013512 013764 004164 000010 MOV A#DTADPB,RPCS2(R4) ;SELECT DRIVE | 

4315 013520 104413 RESREG PRESTORE RO-R5 

4316 013522 104020 ERROR 20 sREPORT CLOCK OVERFLOW | 

4317 013524 8$: 

4318 013524 012764 000040 000010 MOV #BITCS,RPCS2(R4) ;MASSBUS INIT. 

4319 013532 013764 004164 000010 MOV A#DTADPB,RPCS2(R4) ;SELECT DRIVE 

4320 013540 004737 024212 JSR PC ,a#ST.CLK INITIALIZE THE CLOCK 

4321 0135464 012777 037544 021062 MOV #1SR,aRPVEC RESTORE RH11/RP04/5/6 INT. VECTOR 

4322 013552 004037 027370 JSR RO, aa#TYPTIM GO TYPE THE TIMES 

4323 013556 003014 110 :POINTER 

4324 013560 000004 EX1T13: SCOPE :LOOP ? 

4325 

4326 

4327 so eeereorcececeeecervereerserrerereerererereereesenerenseneserenere 

4328 :*TEST 14 ACCESS TIME MEASURMENT TEST 

4329 

4330 ;* THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER 0 TO | 

4331 7° CYLINDER 'LC*, THEN A REVERSEK FROM CYLINDER ‘LC’ TO 

4332 :8 CYLINDER 0. BOTH SEEKS ARE TIMED AND CHECKED TO ENSURE THEY 

4333 ARE WITHIN THE TOLERANCE ALLOWED FOR THE ACCESS TIME MEASURMENT. 

4334 8 THIS SEQUENCE 1S REPEATED 128 TIMES (FOR A TOTAL 

4335 :* OF 256 SEEKS). THE AVERAGE ACCESS TIME MUST BE LESS THAN 30 MS, 

4336 * CYLINDER 'LC' DEFAULTS TO 136 (10) FOR AN RPO4/S OR TO 255 (10) | 
| 
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001454 


014300 
000014 


024726 


001244 


014300 
013654 
027006 


014276 


000105 
000131 


000101 
040000 


004164 


004164 


027236 
026564 
165326 
001510 
000105 
000131 


000101 
040000 


H 7 
nn. _— MACY11 30A(1052) 24-MAY-79 13:59 PAGE 89 


001234 


001102 


001106 


001206 


165444 
020676 


000034 
000000 
165414 


165404 
000012 


000010 
000010 


000054 
000000 
165302 


165272 
000012 


1S114: 


643: 


1$: 


2$: 


TEST14: 


1$: 


2%: 


ACCESS TIME MEASURMENT TEST 


FOR AN RPO6. 


--@eereerererereterererrerrerereeeeeeeeerereeeeeeteteneeertereTeee 


B 
SAVREG 


OFB11S*<14*2>,TSTINMS ;DO0 THIS TEST? 
4$ ; YES--BRANCH 

TST15 :NO--GO TO THE NEXT TES? 
#14,a#STSTNM :SET UP TEST NUMBER AND 

CLEAR THE ERROR FLAG (SERFLG) 

PC,LODPRM ;LOAD THE PARMETERS FOR THE TEST 
WTS 14, @#SLPERR ;SETUP THE ERROR LOOP ADDRESS 
STSTNM,@DISPLAY ;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
aeRPT STIMES ;GET THE ITERATION COUNT 


#25. , SERMAX ;MAX ERRORS ALLOWED FOR TEST 
Q#CLKSTA 7KW11-P CLOCK? 
1$ sYES--START TEST 
TST15 ;NO--GO TO NEXT TEST 
#1$,S$LPADR 7SET THE LOOP ADDRESS 
RO, a#SRCHOO 7D0 A MASSBUS INIT & RECAL 
2$ ;RETURN HERE IF NO ERROR 
EX11T14 ;RETURN HERE ON ERROR 
#711,R3 ;PARAMETER POINTER 
WEXITIG, SESCAPE > ESCAPE TO EXI1T14 ON ERROR 
#STACK ,SP 7SETUP STACK 
#128. URI ;REPEAT *'0-136-0°' 128 TIMES 
at ae#STRIMR INIT. THE COUNTERS 
#7$, aPKv ;SET UP VECTOR IN CASE OF OVERFLOW 
#DORTI, @RPVEC sSETUP RPO4/5/6 VECTOR 
aPKB ;START COUNT AT ZERO 
LC, RPCA(R4) >"MIDDLE* CYLINDER 
#SEEK,RPCS1(R4) ;START A SEEK 
#131,aPKCS >START THE CLOCK 

;WAIT ON INTERRUPT 
#101,aPKCS 3STOP CLOCK 
#BITI4,RPDSI(R4) sERR=1? 
2$ 3;NO--BRANCH 

7 SAVE RO-R5 
#DTADPB,R2 ;DPB POINTER 
PC ,a#SvRH11 ;SAVE ALL THE RH11/RPO4 REGISTERS 


#BITOS,RPCS2(R4) ;MASSBUS CLEAR 
Q#DTADPB,RPCS2(R4) ;SELECT DRIVE 
;RESTORE RO-R5 


17 
R5 7SET UP/DOWN SWITCH TO UP 
PC ,a#COUNT sUPDATE THE COUNT 
PC, aa TWwOMS sSTALL FOR 2 MILLISECONDS 
aPKB >START THE COUNT AT ZERO 
FC, RPCACR4) ;BEGINNING CYLINDER 
MSEEK,RPCSI1(R4) sSTART A SEEK 
#131,aPKCS s;START THE CLOCK 

sWAIT ON INTERRUPT 
#101,aPKCS sSTOP THE CLOCK 
#BITIG,RPDSI(R4) ;ERR=1? 
$ ;NO--BRANCH 

;SAVE RO-RS 


SEQ 0085 


LS SS a SS SD 
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014120 


014276 


014300 
014300 
014302 
014310 
014312 
014316 


014324 
014330 
014336 
014344 
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012702 
004737 


104020 


012764 
013764 
004737 
012777 
004037 
003024 
000004 


000240 
033737 


177777 
027236 
026564 


000101 
177776 


004164 
042202 
000040 
004164 


000040 
004164 
024212 
037544 
027370 


001456 


015016 
000015 


024726 
014300 
001102 
001506 
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000010 
000010 


165200 


000010 
000010 


000010 
000010 


020344 


001234 


001102 


001110 
164576 
001204 


ACCESS TIME MEASURMENT TEST 
MOV #OTADPB ,R2 ;0PB POINTER 


JSR PC ,aaS SVRHTI SAVE ALL THE ne REGISTERS 
MOV #BITOS,RPCS2(R4) ;MASSBUS CLEAR 
MOV a#DTADPB,RPCS2(R4) Eat gh. DRIVE 
RESREG ;RESTORE RO-RS 
ERROR 17 
38: MOV #-1,R5 ;SET UP/DOWN SWITCH TO DOWN 
JSR PC ,a#COUNT UPDATE THE COUNT 
JSR PC ,a#TWwORS STALL FOR 2 MILLISECONDS 
DEC RI ; DONE? 
BGT 1$ ;NO--BRANCH 
BR 8% 7 YES--EXIT 
7$: BIC #101,aPKCS ;STOP THE CLOCK 
CLR aayPs ;DROP THE PRIORITY 
MOV (SP)+,R0 :PC OF WAIT+2 
TST (SP)+ ;POP THE PS FROM THE STACK 
SAVREG ;SAVE RO-R5 
MOV #DTADPB ,R2 ;DPB POINTER 
JSR PC ,a#SvRH11 SAVE ALL THE RH11/RPO4 REGISTERS 
MOV #BITOS,RPCS2(R4) ;MASSBUS CLEAR 
MOV a#DTADPB,RPCS2(R4) ;SELECT DRIVE 
RESREG ;RESTORE RO-R5S 
9s ERROR 20 ;CLOCK OVERFLOWED 
MOV #BITOS,RPCS2(R4) ;MASSBUS INIT. 
MOV Q#DTADPB,RPCS2(R4) ;SELECT DRIVE 
JSR PC ,aa#ST.CLK INITIALIZE THE CLOCK 
MOV #ISR,ARPVEC RESTORE RH11/RP04/5/6 INT. VECTOR 
JSR RO,a#TYPTIM ;GO TYPE THE TIMES 
111 :POINTER 
EXI1T14: SCOPE ;LOOP ? 


ppeweenererereeeerrerreretereerrereerereneanneeeeeeeeeeeeee ERATE eS 


s*TEST 15 MAXIMUM SEEK TIMING TEST 


THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER 9 TO 
CYLINDER "LC", THEN A REVERSE SEEK FROM CYLINDER ‘LC* TO 
CYLINDER 0. BOTH SEEKS ARE TIMED AND CHECKED TO ENSURE 

THEY ARE WITHIN THE TOLERANCE ALLOWED FOR THE MAXIMUM SEEK 
TIME. THIS SEQUENCE IS REPEATED 128 TIMES (FOR 

A TOTAL OF 256 SEEKS). THE MAXIMUM SEEK TIME MUST SE LESS THAN 
54 oo A el DEFAULTS TO 410 (10) FOR RPO4/5'S AND 10 814 (10) 
FOR 6°. 


Be Be 


sseeeeerernrerareerreresrererrrerereetereeaereneneneneKeeAeeTeT eS 


1S115: 


BIT @#B1TS+<15*2>,TSTNMS ;DO THIS TEST? 
BNE - - 7Y ES--BRANCH 
JMP :NO--GO TO THE NEXT TEST 


64$: MOV 115 Q#STSINN :SET UP TEST NUMBER AND 
CLEAR THE ERROR FLAG (SERFLG) 
JSR PC,LODPRM LOAD THE PARMETERS FOR THE TEST 
MOV #iétlé, @#S$LPERR ;SETUP THE ERROR LOOP ADDRESS 
MOV STSTNM,Q@DISPLAY ;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
MOV aeRPTSTIMES :GE1 THE ITERATION COUNT 


| EEE 
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000031 
001244 


015016 
014372 
027006 


015014 


000131 


000101 
040000 


004164 
042202 
000040 
004164 


027236 
026564 
164610 
001510 
000105 
000131 


000101 
040000 
004164 
004164 


177777 
027236 
026564 


READ/WRITE TEST 
115 


001115 
001106 18: 


23: 
001206 
TEST15: 


164726 
020160 
000034 
000000 
164676 


164666 
000012 


000010 
000010 


2$: 


000034 
000000 
164564 


164554 
000012 


000010 
000010 


3$: 


164462 7%: 
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MAXIMUM SEEK TIMING TEST 


#25. ,SERMAX ;MAX ERRORS ALLOWED FOR TEST 
@ACLKSTA ;KWil-P CLOCK 

1$ sYES--START TEST 

TST16 ;NO--GO TO NEXT TEST 
#1$,SLPADR ;SETUP THE LOOP ADDRESS 


RO,a#SRCHOO ;D0 A MASSBUS INIT & RECAL 
2% RETURN HERE IF NO ERROR 
Ex1115 RETURN HERE ON ERROR 
#112,R3 PARAMETER POINTER 
WEXITIS,SESCAPE ;;ESCAPE TO EXIT15 ON ERROR 


#STACK SP SETUP STACK 
#128. ,R1 sREPEAT “O-"LC'-0°° 128 TIMES 
PC ,a#STRIMR INIT. THE TIMERS 
#7%,aPKV ;SETUP VECTOR IN CASE OF OVERFLOW 
MDORTI,@RPVEC ;SETUP RPO4/5/6 VECTOR 
aPKB START COUNTING FROM ZERO 
LC, RPCA(R4) ;MAXIMUM CYLINDER 
#SEEK,RPCSI(R4) ;START A SEEK 
#131,aPKCS START THE CLOCK 
;WAIT ON INTERRUPT 
#101,aPKCS ;STOP THE CLOCK 
#BITIG,REDSI(RG) ;ERR=1? 
2$ ;NO--BRANCH 
;SAVE RO-R5 
#DTADPB R2 ;DPB POINTER 
PC ,a#SvRH11 SAVE ALL THE RH11/RPO4 REGISTERS 


#BITOS,RPCS2(R4) ;MASSBUS CLEAR 
@ADTADPB,RPCS2(R4) ;SELECT DRIVE 
sRESTORE RO-R5S 


17 
R5 SET THE UP/DOWN SWITCH TO UP 
PC ,a#COUNT ;UP THE COUNT 
PC,a#TWOMS STALL FOR 2 MILLISECONDS 
aPKB START COUNT AT ZERO 
FC,RPCA(R4) >BEGINNING CYLINDER 
WSEEK,RPCS1(R4) ;START A SEEK 
#131,aPKCS START THE CLOCK 

WAIT ON INTERRUPT 
#101, aPKCS ;STOP THE CLOCK 
MBITIG,RPDSI(R4) ;“’ERR''=1? 
3$ ; NO--BRANCH 

;SAVE RO-R5 
#DTADPB ,R2 ;DPB PCINTER 
PC ,a#SVRH11 SAVE ALL THE RH11/RPO4 REGISTERS 


#B1T05,RPCS2(R4) ;MASSBUS CLEAR 
Q#DTADPB,RPCS2(R4) ;SELECT DRIVE 
sRESTORE RO-R5 


17 REPORT THE ERROR 

#-1,R5 SET THE UP/DOWN SWITCH TO DOWN 
PC ,a#COUNT ;UPDATE THE COUNT 

PC ,a#TWwOMS STALL FOR 2 MILLISECONDS 

R1 ; DONE? 

1$ > NO--BRANCH 

8$ sYES@-EXIT 

#101,aPKCS STOP THE CLOCK 

aaePs ;DROP THE PRIORITY 
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014722 
014724 
014726 
014730 


015014 


012600 


104020 
012764 


000004 


004164 
042202 
000040 
004164 


000040 


027370 
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000010 
000010 


000010 
000010 


017626 


MAXIMUM SEEK TIMING TES SEG 0088 
(SP)+, a0 :PC OF WAIT+2 
(SP)¢ sPOP THE PS FROM THE STACK 
7SAVE RO-RS 
#DTADPB,R2 7DPB POINTER 
PC ,aaSvRui' sSAVE ALL THE RH11/RPO4 REGISTERS 


8$: 


Tl2 
EX1T15: SCOPE 


#B1TO5,RPCS2(R4) ;MASSBUS CLEAR 

@#DTADPB,RPCS2(R4) ;SELECT DRIVE , 
sRESTORE RO-R5 

20 CLOCK OVERFLOWED 


#BITOS,RPCS2(R4) ;MASSBUS INIT. 
@#DTADPB,RPCS2(R4) [SELECT DRIVE 


PC,a#ST.CLK INITIALIZE THE CLOCK 
#1SR,AaRPVEC RESTORE RH11/RP04/5/6 INT. VECTOR 
RO,a#TYPTIM ;GO TYPE THE TIMES 

;POINTER 

;LOOP ? 


CZRJAD.P11 28-MAR-79 11:2 115 MAXIMUM SEEK TIMING TEST 
4525 -SBTTL *** ADDRESSING TESTS *#* 


AAT AA TIAATIAACIAATIAATILATILATI LAT LACT LATILACILATIAATI AA CI LATILA TI LAL 
STENT ONS SONS ONS JONSON SONS JONSON Se Je fe Jes Jee Jes /e\s/e\: 
STOENSTOENSSOENSS ONSEN ENS ON SONS JONSON ON SON JONSON JON SON Je JON: 


>*THE ADDRESSING TESTS ENSURES PROPER OPERATION OF THE TRACK 
;*AND SECTOR ADDRESS CIRCUITRY. BOTH ADDRESSING TESTS 
;*WILL BE PERFORMED ON CYLINDER FC. 


ST NOT NO Ne Ne Ne Ne Nee Ne Ne Ne Ne Ne Ne Ne Nes Nes Nes \e 
ST NMT NO NO NON Ne Ne Ne Ne Ne Ne Ne Nes Nes Nes Nes Nes s\n 
ST N@A NO NO Ne Ne Ne Ne Ne Ne Ne Ne Ne Nes Nes Nes Nes Nes \e 


4539 spe eeeeeeeeeeeeeeeeeeerereteeeeeeeeeeeeteneeeneeeeateReeeeeeeeese 


4540 s*TEST 16 SECTOR ADDRESSING TEST 


THIS TEST WRITES DATA INTO ALL SECTORS OF TRACK “‘FT’’, THE 

DATA WILL BE 256 WORDS OF THE SECTOR ADDRESS OF THE SECTOR 

BEING WRITTEN. A WRITE CHECK IS PERFORMED, THE BUFFER IS 

CLEARED (10 177400) AND THE DATA IS READ AND COMPARED. THEN SECTOR 0 
1S REWRITTEN AND SECTORS 0 - 21 ARE WRITE CHECKED. THEN 

SECTOR 1 1S REWRITTEN AND SECTORS 0 - 21 ARE WRITE CHECKED. 

THIS REWRITE AND WRITE CHECK PROCEDURE IS CONTINUED UP THROUGH 
REWRITE SECTOR 21 AND WRITE CHECK SECTORS 0-21. 


= 
uw 
> 
* 
Ss Be Se Oe 


Fa 
vw 
> 
oo 


# Se Be Be Be oe Be 
eeee#gen 8 8 


- 
mus 
ea 
so 
7 
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4551 Py eeeeearaeraerekeeeeeereeeetetereteretereteeeKKeatanetatareteneeee 
4552 015016 TST16: 

4553 015016 000240 NOP 

4554 015020 033737 001460 001234 BIT @4B1TS+<16*2>,TSTNMS ;DO THIS TEST? 

4555 015026 001002 BNE . 4% ; YES--BRANCH 

4556 015030 000157 015414 JMP TST17 ;NO--GO TO THE NEXT TEST 

4557 015034 012737 000016 001102 64$: MOV #16, 34STSTNM :SET UP TEST NUMBER AND 

4558 CLEAR THE ERROR FLAG (SERFLG) 
4559 015042 004737 024726 JSR PC,LODPRM ;LOAD THE PARMETERS FOR THE TEST 
4560 015046 012737 015112 001110 MOV WTéST16, @#SLPERR ;SETUP THE LOOP ON ERROR ADDRESS 
4561 015054 013777 001102 164060 MOV STSTNM,@DISPLAY ;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
4562 015062 013737 001506 001204 MOV aMRPT ,STIMES ;GET THE ITERATION COUNT 

45635 015070 113737 001364 001115 MOVB ERR.CT,SERMAX ;MAX ERRORS ALLOWED FOR TEST 

4564 015076 012737 015412 001252 MOV #EX11T16,a#BYPASS 

4565 015104 012737 015112 001106 MOV MTESTI6,$LPADR ;SETUP THE LOOP ADDRESS 

4566 015112 012706 001100 TEST16: MOV #STACK ,SP SET THE STACK POINTER 

4567 015116 004737 030022 JSR PC ,a#F ILBUF sFILL THE BUFFER WITH SECTOR ADDRESSES 
4568 015122 013737 001510 004176 MOV a#FC ,A#DTADPB+12 ; CYLINDER 

4569 015130 113737 001516 004175 MOVB a#FT,a#DTADPB+11 ; TRACK 

4570 015136 105037 004174 CLRB a#DTADPB+ 10 ; SECTOR 

4571 015142 013737 001352 004170 MOV TRCKWC,@#DTADPB*4 ;WORD COUNT 

4572 015150 012737 050202 004172 MOV WBUFFER ,a@#DTADPB+6 ;BUFFER ADDRESS 

4573 015156 012737 015156 001110 MOV #. ,SLPERR ;SETUP THE ERROR LOOP ADDRESS 

4574 015164 012706 001100 MOV #STACK , SP ;LOAD THE STACK POINTER 

4575 015170 012737 000161 004166 MOV #WRITE ,a#DTADPB+2 oe ce WRITE DATA 

4576 015176 004037 025642 JSR RO. a#DRVCAL :START A DATA TRANSFER 

4577 015202 012737 000151 004166 MOV #WRCKD,@#DTADPB+2 ;COMMAND=WRITE CHECK DATA 
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CZRJAD.P11 28-MAR-79 11:28 116 SECTOR ADDRESSING TEST SEQ 0090 
4578 015210 012737 015210 001110 MOV #. ,SLPERR SETUP THE ERROR LOOP ADDRESS 
4579 015216 012706 001100 MOV #STACK ,SP LOAD THE STACK POINTER 
4580 015222 004037 025642 JSR RO ,@#DRVCAL START A DATA TRANSFER 
4581 015226 012737 015226 001110 MOV #. ,SLPERR ;SETUP THE ERROR LOOP ADDRESS 
4582 015234 012706 001100 MOV a. aoe ;LOAD THE STACK POINTER 
4583 015240 004037 030060 JSR RO ,a#CLRBUF :CLEAR BUFFER 
4584 015244 012737 000171 004166 MOV FREAD, SADT ADPB*2 one D = READ 
4585 015252 004037 025642 JSR RO, a#ORVCAL ;START A DATA TRANSFER 
4586 015256 004037 030126 JSR RO,A#CKSCTR ‘HECK THE SECTOR DATA READ 
4587 015262 012700 050202 MOV #BUFFER,RO :BUFFER ADDRESS 
4588 015266 005001 CLR R1 FIRST SECTOR 
4589 015270 012737 015270 001110 MOV #. ,SLPERR : SETUP THE ERROR LOOP ADDRESS 
4590 015276 012706 001100 MOV #STACK,SP LOAD THE STACK POINTER 
4591 015302 012737 000161 004166 1$: MOV #URITE, asDTADPB+) > COMMAND=WRITE DATA 
4592 015310 012737 177400 004170 MOV #SCTRWC ,a#DTADPB+4 ;WORD COUNT 
4593 015316 010037 004172 MOV RO,@#DTADPB+6 «=; BUFFER ADDRESS 
4594 015322 110137 004174 MOVB R1,a#DTADPB+10 SECTOR 
4595 015326 004037 025642 JSR RO ,@#DRVCAL START A DATA TRANSFER 
4596 015332 012737 015332 001110 MOV #. ,SLPERR ;SETUP THE ERROR LOOP ADDRESS 
4597 015340 012706 001100 MOV #STACK,SP ;LOAD THE STACK POINTER 
4598 015344 012737 000151 004166 MOV #WRCKD,@#DTADPB+2 ; COMMAND= —— CHECK DATA 
4599 015352 013737 001352 004170 MOV TRCKWC,a#DTADPB+4 WORD COUN 
4600 015360 012737 050202 004172 MOV #BUF FER, a#DTADPB+6 : BUFFER ADDRESS 
4601 015366 105037 004174 CLRB a#DTADPB+10 SECTOR - 

4602 015372 004037 025642 JSR RO, @#DRVCAL :START A DATA TRANSFER 
4603 015376 062700 001000 ADD #512. ,R0 ;MOVE TO NEXT SECTOR 
4604 015402 005201 INC RI 

4605 015404 023701 001630 CMP PRMLMT+22,R1 ; DONE? 

4606 015410 103334 BHIS 1$ ;NO--BRANCH 

—< 015412 000004 EXIT16: SCOPE ;LOOP ? 

4 

4609 SPAM A AAA A EEA A AEA E AAA AE TATE AAA EAR E EAR AARAATee 
en | s*TEST 17 TRACK ADDRESSING TEST 
46 
4612 it THIS TEST WILL WRITE DATA IN THE FORM OF TRACK ADDRESSES 
4613 7° IN CYLINDER ‘‘FC’’ SECTOR ‘‘FS*' OF EVERY TRACK WITH EACH TRACK 
4614 :* GETTING ITS OWN TRACK ADDRESS. 

4615 3° A WRITE CHECK IS THEN PERFORMED ON EACH TRACK TO ENSURE 
4616 se THE DATA IS VALID. THEN TRACK 0 IS REWRITTEN AND TRACK i 
4617 ;* THROUGH TRACK 18 1S WRITE CHECKED. THEN TRACK 1 IS 

4618 3* REWRITTEN AND TRACK 2 THROUGH TRACK 18 IS WRITE CHECKED. 
4619 se THIS PROCEDURE 1S CONTINUED UP THROUGH REWRITING TRACK 17 
4620 7° AND WRITE CHECKING TRACK 18. 

ros} ss eeeeeerreerereererererenereresereteeeeaeeeeneeeeeeAeeeeRAe eee 
4625 015414 TST17: 

4624 015414 000240 NOP 

4625 015416 033737 001462 001234 BIT O#B11S+#<17#2>,TSTNMS ;DO THIS TEST? 

4626 015424 001002 BNE * $ ; YES--BRANCH 

4627 015426 000137 016034 JMP $120 ;NO--GO TO THE NEXT TEST 

46628 015432 012737 000017 001102 64%: MOV #17 aNSTSINN ;SET UP TEST NUMBER AND 

4629 CLEAR THE ERROR FLAG (SERFLG) 
4630 015440 004737 024726 JSR PC,LODPRM [LOAD THE PARMETERS FOR THE TEST 
4631 015444 012737 015510 001110 MOV #TESTI7,Q#$LPERR ;SETUP THE LOOP ON ERROR ADDRESS 
4632 015452 013777 001102 163462 MOV STSTNM,QDISPLAY ;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
4633 015460 013737 001506 001204 MOV QaRPT STIMES ;GET THE ITERATION COUNT 
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CZRJAD.P11 28-MAR-79 11:28 117 TRACK ADDRESSING TEST SEQ 0091 
4634 015466 113737 001364 001115 MOvB ERR.CT,SERMAX  ;MAX ERRORS ALLOWED FOR TEST 
4635 015474 012737 016032 001252 MOV #EXITI7 ,a#BYPASS 
4636 015502 012737 015510 001106 MOV #TESTI7,SLPADR ;SETUP THE LOOP ADDRESS 
4637 015510 012706 001100 TESTI7: MOV #STACK, SP SET THE STACK POINTER 
4638 015514 004737 030022 JSR PC asf ILBUF sFILL THE BUFFER WITH TRACK ADDRESS 
4639 015520 0127357 000161 004166 MOV #URITE,@sDTADPB+2 ; COMMAND=WRITE DATA 
4640 015526 0137357 001510 004176 MOV asf C ,A#DTADPB+12 : CYLINDER 
4641 015534 113737 001524 004174 MOVB a#FS,asDTADPB+10 SECTOR 
4642 015542 012757 177400 004170 MOV #SCTRWC ,@#DTADPB+4 ;WORD COUNT 
4645 015550 012737 050202 004172 MOV #BUFFER ,Q@#DTADPB+6 ; BUFFER ADDRESS 
4644 015556 005000 CLR ” ; TRACK=0 
4645 015560 012737 015560 001110 MOV #. ,SLPERR :SETUP THE ERROR LOOP ADDRESS 
4646 015566 012706 001100 MOV #@STACK ,SP [LOAD THE STACK POINTER 
4647 015572 110037 004175 1$: MOVB RO,a#DTADPB+11 =; TRACK ADDRESS 
4648 015576 004037 025642 JSR RO, @#DRVCAL START A DATA TRANSFER 
4649 015602 062737 001000 004172 ADD #256.*2.,a#DTADPB+6 ;UPDATE BUFFER ADDRESS 
4650 015610 005200 INC RO ;UPDATE TRACK NUMBER 

‘ 4651 015612 022700 000023 CMP #19. ,R0 ;0UT OF ne 
4652 015616 003365 BGT 1$ ; NO--BRANC 
4653 015620 012737 050202 004172 MOV #BUFFER,@#DTADPB+6 ;BUFFER "ADDRESS 
4654 015626 005000 CLR RO 
4655 015630 012737 015630 001110 MOV #. ,SLPERR SETUP THE ERROR LOOP ADDRESS 
4656 015636 012706 001100 MOV #STACK,SP ;LOAD THE STACK POINTER 
4657 015642 0127357 000151 004166 MOV #WRCKD ,Q#DTADPB+2 ;COMMAND=WRITE CHECK 
4658 015650 110037 004175 2$: MOVB RO,@#DTADPB+11 ; TRACK ADDRESS 
4659 015654 004057 025642 JSR RO ,a#DRVCAL START A DATA TRANSFER 
4660 015660 062737 001000 004172 ADD #256.*2.,@#DTADPB+6 ; UPDATE BUFFER ADDRESS 
4661 015666 005200 INC RO ; UPDATE TRACK NUMBER 
4662 015670 022700 000025 CMP #19.,R0 ;OUT OF TRACKS? 

4665 015674 003365 BGT 2% ;NO--BRANCH 

4664 015676 005000 CLR RO FIRST TRACK ADDRESS 

4665 015700 110037 004175 3$: MOVB RO, @#DTADPB+11 heen g 

4666 015704 010001 MOV RO,R1 ORM BUFFER ADDRESS 

4667 015706 012737 050202 004172 MOV #BUFFER, as TAnPBs ;BUFFER ADDRESS 

4668 015714 005301 4$ DEC R1 

4669 015716 002411 BLT 8s 

4670 015720 062737 001000 004172 ADD #256.%2. ,a#DTADPB+6 

4671 015726 000772 BR 4% 

4672 015730 012737 015730 001110 MOV #. .SLPERR ;SETUP THE ERROR LOOP ADDRESS 
4673 015736 012706 001100 MOV #STACK,SP ;LOAD THE STACK POINTER 
4674 015742 012737 000161 004166 5$: MOV #WRITE ,Q#DTADPB+2 ;COMMAND=WRITE DATA 

4675 015750 004037 025642 JSR RO, a#DRVCAL ;START A DATA TRANSFER 

4676 015754 062737 001000 004172 6%: ADD #256.*2.,a#DTADPB+6 ; UPDATE BUFFER ADDRESS 
4677 015762 105237 004175 INCB a#DTADPB+11 :MOVE TO NEXT TRACK 

4678 015766 012737 015766 001110 MOV #. , SLPERR Jy beg THE ERROR LOOP ADDRESS 
4679 015774 012706 001100 MOV WSTACK , SP OAD THE STACK POINTER 
4680 016000 012737 000151 004166 MOV #WRCKD, “YDTADPB+2” oege WRITE CHECK DATA 
4681 016006 004037 025642 JSR RO, a#DRVCAL ;START A DATA TRANSFER 

4682 016012 122737 000022 004175 CMPB #18. ,a#DTADPB+11 ;OUT OF TRACKS? 

4683 016020 003355 BGT 6$ ;NO=-BRANCH 

4684 016022 005200 INC RO NEXT TRACK TO WRITE 

4685 016024 022700 000022 CMP #18. ,R0 ;OUT OF TRACKS? 

4686 016030 003323 BGT 3$ :NO=-BRANCH 

4087 016032 000004 EXIT17: SCOPE 
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4688 .SBITL ee DATA TEST eee 


4690 pp eteeeererererererererererereererererererereeesereeeeeeerererete 


4691 s*TEST 20 DATA TEST 


THIS TEST PERFORMS DATA STORAGE AND RETRIEVAL ON CYLINDERS 
“FC’’ THROUGH “"LC’’ BY THE INCREMENT ““IC’’ USING THE DATA PATTERNS 
SPECIFIED. THE FOLLOWING SEQUENCE OCCURS FOR EACH Neti ih 
° SET NT’ TO ‘FT’ THEN REPEAT 2-4 UNTIL ‘NT" 
2. WRITE THEN WRITE CHECK ‘FS’ THROUGH “'LS"’ OF TRACK “wr” 
3. READ THEN SOFTWARE COMPARE ‘'FS'’ THROUGH "LS" OF TRACK “'NT" 
4. INCREMENT ‘NT’ BY ““IT" 
5. REPEAT STEPS 1-4 FOR EACH DATA PATTERN 
6 REPEAT STEPS 1-5 FOR ‘’FC’’ THROUGH “‘LC’’ ADVANCING BY “IC 


, 
4694 :e 
4695 :* 
46% and 
4697 3* 
4698 3e 
4699 38 
4700 ze 
4701 se 
4702 i* 
4703 3° If A WRITE CHECK ERROR OCCURS THE ERROR IS REPORTED AND 
4704 ;* THE TRACK IN ERROR IS REWRITTEN AND CHECKED. THIS CHECK IS 
4705 3 ACCOMPLISHED BY PERFORMING TWO(2) SUCCESSIVE ERROR FREE 
4706 7° WRITE CHECKS. IF THE CHECK FAILS THE ERROR IS REPORTED AS 
4707 3* FATAL AND NO READ OCCURS. 
4708 al FS DEFAULTS TO 1 AND LS DEFAULTS TO 0 
4709 3* PAT DEFAULTS 10 177777 (ALL POSSIBLE PATTERNS) 
my At 3° THE POSSIBLE PATTERNS ARE: 
4 3e 
tA | 3 PAT 0 PAT 1 PAT 2 PAT 3 PAT & PAT 5 PAT 6 PAT 7 
4 3; = seeece ecoeese eeeeee coeese sceoeese cesses seeese eecese 
4714 if 165555 000001 177776 000000 000000 052525 007417 026455 
4715 7¢ 133333 000003 177774 000000 010421 052525 007417 026455 
4716 3* 165555 000007 177770 000000 021042 052525 007417 026455 
4717 i* 133333 000017 177760 177777 031463 125252 170360 151322 
4718 if 165555 000037 177740 177777 042104 125252 170360 151322 
4719 ;* 133333 000077 177700 177777 052525 125252 170360 151322 
4720 i* 165555 000177 177600 000000 063146 052525 007417 026455 
4721 ;* 133333 000377 1774 000000 073567 052525 007417 026455 
4722 ;* 165555 000777 177000 177777 104210 125252 170360 151322 
4723 if 133333 001777 176000 177777 114631 125252 170360 151322 
4724 it 165555 003777 174000 CO0000 125252 052525 007417 026455 
4725 ie 133333 007777 170000 177777 135673 125252 170360 151322 
4726 if 165555 017 160000 000000 146314 052525 007417 026455 
4727 ;* 133333 037777 140000 177777 156735 125252 170360 151322 
4728 :* 165555 077777 100000 000000 167356 052525 007417 026455 
4 34 :® 133333 177777 OQO00000 177777 177777 «125252 170360 151322 
4 3° 
itd 3@ PAT 8 PAT 9 PAT 10 PAT 11 PAT 12 PAT 15 PAT 14 P&T 15 
4 ;* eeeceso eeeecee eeeecece 8 eeeeese eee eee 0 6 ee eee lO ee eee USO ee eee 
4733 ;* 165555 000001 177776 172666 077777 153333 000000 177777 
4734 ye 133333 000002 177775 155555 137777 066667 177777 000000 
4735 if 165555 000004 177773 172666 157777 153333 177777 000000 
4736 ;* 133333 000010 177767 155555 167777 066667 177777 000000 
4737 if 165555 000020 177757 172666 173777 153333 177777 000000 
4738 ie 133333 000040 177737 155555 175777 066667 177777 000000 
4739 ze 165555 000100 177677 172666 176777 153333 177777 000000 
4740 Al 133333 000200 177577 155555 177377 066667 177777 000000 
474i 3 165555 000400 177377 172666 177577 153333 177777 000000 
4742 ze 133333 001000 176777 155555 177677 06666? 177777 000000 
4743 ;* 165555 002000 175777 172666 177737 1533338 177777 000000 
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005000 


001424 


016554 
000020 


024726 


016114 


001526 
001524 


001630 


000400 


001630 
001524 
000400 


000040 
027746 
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001236 


001102 


001110 
163042 
001204 
001115 
001106 


004174 
004172 
001252 


TS$120: 


643: 


e$: 


006000 173777 155555 177757 066667 177777 

01 167777 172666 177767 153333 177777 0000 
020000 157777 155555 177773 066667 177777 000000 
040000 137777 172666 177775 153333 177777 000000 
100000 077777 155555 177776 066667 177777 000000 


; , eeeerrererrerererereerrrererrrereerereerteteneneereeenereereeee 


BITS*#<20*2-40>, TSTNMS#2 ;D0 THIS TEST ? 
° 4% ; YES--BRANCH 

$121 ;NO--GO TO THE NEXT TEST 
420 a9STSTNR :SET UP TEST NUMBER AND 

CLEAR THE ERROR FLAG (SERFLG) 

PC ,LODPRA [LOAD THE PARMETERS FOR THE TEST 
#TEST20 @#SLPERR ;SETUP THE LOOP ON ERROR ADDRESS 
STSTNM,@DISPLAY ;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
@ARPT,STIMES ;GET THE ITERATION COUNT 
ERR.CT,SERMAX ;MAX ERRORS ALLOWED FOR TEST 
#.,SLPADR SETUP THE LOOP ADDRESS 
RO ;CLEAR SWITCH 


RG FORM WORD COUNT IN R4 

@4LS,R1 

aaFs,Ri 

1$ ;BRANCH IF FS < OR = LS 
PRMALMT+22,R1 ;ADD MAXIMUM SECTOR ADDRESS TO 
RI MAKE THE DIFFERENCE POSITIVE 
RO ;SET SWITCH 

#256. ,R4 

R1 

1$ 

RS 

R4,RS ;COPY NORMAL WORD COUNT INTO SMALL WC 
RO ;SWITCH SET? 

3$ ;NO--BRANCH 

R5 ;FORM WORD COUNT FOR LS < FS 
PRMLMT+22,R1 

avFS,Ri 

#256. ,R5 

R1 

23 


R5 
O4FS,aM#DTADPB+10 ; SECTOR 
#BUFFER,@#DTADPB+6 ;DATA BUFFER 


#WEX1T20 ,Q#BYPASS 

STACK ,SP LOAD THE STACK POINTER 

awWCEFLG CLEAR THE WRITE CHECK ERROR FLAG 
Sere A > PICKUP FIRST CYLINDER 

(RO) + ;MOVE TO NEXT DATA PATTERN 
#16.*2.,R0 ;OUT OF PATTERNS? 

3$ ;NO--BRANCH 

RO,a#INCCYL :MOVE TO NEXT CYLINDER 

EXx1120 ;OUT OF CYLINDERS 

RO START WITH PATTERN 0 
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001424 
001516 


004170 
162570 


006030 
030476 
000020 


016374 


016430 
001100 
000151 
025642 
001334 


000001 
000004 


016502 
001100 
009171 
025642 
000002 


030566 
027716 
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120 DATA TEST 


001530 


162546 
001110 
004166 
162512 
001110 
004166 


162450 
162440 
001110 
004166 
162404 


3$: BIT 


4$: *OvB 


5$: MOV 


6$: BIT 


7$: TST 


8$: BIT 


9$: JSR 


EX1120: SCOPE 





SEQ 0094 
BITS(RO),@#PAT ;THIS PATTERN SELECTED? 

1$ 3;NO--BRANCH 

ast sFIRST TRACK 


#FT,R2 
R1,a#DTADPB+12 = ;CYLINDER 
R2,Q#DTADPB+11 =; TRACK 


R4.a#DTADPB*4 =: WORD COUNT 
LC.RI TLAST DISK CYLINDER? 

5$ [NO=-BRANCH 

#18. ,R2 [LAST DISK TRACK? 

5$ >NO--BRANCH 

RS, a#DTADPB+4 =: SHORT WORD COUNT 

aswz,R3 [INHIBIT WRITE AND 

R3 TWRITE CHECK? 

#5W04!SWO3,R3 

7$ : YES==BRANCH 

PC ,a#SE TBUF “MOVE DATA PATTERN INTO THE BUFFER 
#SW04 ,a@SWR [INHIBIT WRITE? 

6$ : YES-=-BRANCH 

#. ,SLPERR [SETUP THE ERROR LOOP ADDRESS 
#STACK, SP “LOAD THE STACK POINTER 
#WRITE.a#DTADPB-2 ;COMMAND=WRITE DATA 

RO, a#DRVCAL SSTART A DATA TRANSFER 

#5403, aSWR S INHIBIT WRITE CHECK? 

7% 3 YES--BRANCH 

#. , SLPERR [SETUP THE ERROR LOOP ADDRESS 
#STACK, SP “LOAD THE STACK POINTER 
#WRCKD.a#DTADPB+2 ;COMMAND=WRITE CHECK DATA 

RO, a#DRVCAL sSTART A DATA TRANSFER 

aMUCEFLG SWRITE CHECK ERROR FLAG SET? 

8$ :NO=-BRANCH 

#SWO0,aSwR [PERFORM READ AFTER FATAL ‘WCE’: 
$ :NO--BRANCH 

#SWO2,aSWR ‘INHIBIT READ DATA AND SOFTWARE COMPARE ? 
9$ = YES-=-BRANCH 

#. ,SLPERR “SETUP THE ERROR LOOP ADDRESS 
#STACK,SP [LOAD THE STACK POINTER 
#READ , A#DTADPB*2 ; COMMAND=READ 

RO, a#DRVCAL :START A DATA TRANSFER 

#SW01,aSWR [COMPARE THE DATA? 

9% ;NO--BRANCH 

PC ,a#DATCMP [YES==DO IT 

RO a#INCTRK “MOVE TO NEXT TRACK 

1$ [OUT OF TRACKS GO TO NEXT PATTERN 


4% ;LOOP 
;SCOPE LOOP 
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4900 016752 105237 004175 INCB O#DTADPB+ 1) NEXT TRACK 





CZRJAD.P11 28-MAR-79 11:28 eee EXERCISE TEST eee SEQ 0095 
aos .SBTTL ee EXERCISE TEST eee 
4847 ps, eteeeerererererererereerererererrererererererereretereerereeeee 
ny peTEST 21 RANDOM ADDRESS AND RANDOM PATTERN TEST 
4850 :* STARTING AT FC’ AND GOING THROUGH LC’ THE DISK PACK 
4851 :* 1S WRITTEN WITH A RANDOM PATTERN. THE FIRST TWO WORDS 
4852 :* OF EACH SECTOR WILL BE THE BASE OF THE RANDOM GENERATOR 
4853 * FOR THAT SECTOR. 
6854 :* THE TEST THEN PERFORRS: THE FOLLOWING SEQUENCE “'R’ TIMES 
4855 :* "RB" DEFAULTS 10 20,000 
4856 3* 
4857 ie 1) GENERATE A RANDOM ADDRESS 
6858 e 2) WRITE A RANDOM PATTERN AT THE ADDRESS 
4859 3* GENERATED IN 1. 
4860 7° 3) GENERATE A RANDOM ADDRESS 
4861 :* 4) READ THE SECTOR AT THE ADDRESS 
4862 :* GENERATED IN 3. 
4863 :* 5) DO A SOFTWARE CHECK OF THE DATA READ IN 4. 
4864 :* 6) DO A WRITE CHECK OF THE DATA WRITTEN IN 2 
4865 se 7) GENERATE A RANDOM ADDRRESS 
4866 :* 8) READ THE SECTOR AT THE ADDRESS 
4867 * GENERATED IN 7. 
4868 ie 9) DO A SOFTWARE CHECK OF THE DATA READ IN 8 
4869 ze 10) DO A WRITE CHECK OF THE DATA WRITTEN IN 2 
4 
4871 pp eteeeeererrerererrererererererenesererereneneweeeenenereHeerene 
4872 016554 1$121: 
4873 016554 000240 NOP 
4874 016556 033737 001426 001236 BIT BITS#<21*2=40>,7STNMS*2 :DO THIS TEST ? 
4875 016564 001002 BNE 64% 7 YES--BRANCH 
4876 016566 000137 017332 JMP TST22 :NO=-GO TO THE NEXT TEST 
4877 016572 012737 000021 001102 64$: MOV #21, a#STSTINM SET UP TEST NUMBER AND 
4878 =CLEAR THE ERROR FLAG (SERFLG) 
4879 016600 004737 024726 JSR PC, LODPRM =LOAD THE PARMETERS FOR THE TEST 
4880 016606 012737 017024 001110 MOV #tést21 ,A#SLPERR ;SETUP THE LOOP ON ERROR ADDRESS 
4881 016612 013777 001102 162322 MOV STSTNM,@DISPLAY ;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
4882 016620 013737 001506 001204 MOV a#RPT.STIMES | ;GET THE ITERATION COUNT 
4883 016626 113737 001364 001115 MOVB ERR.CT,SERMAX :MAX ERRORS ALLOWED FOR TEST 
4884 016634 012737 016634 001106 "MOV #., SLPADR :SETUP THE LOOP ADDRESS 
4885 01 012737 017330 001252 MOV #EX1121,a#BYPASS 
4886 016650 012737 176543 023724 MOV #176543, a#SHINUM ;PRIME THE RANDOM NUMBER GENERATOR 
4887 016656 012737 123456 023726 MOV #123456 ,a#SLONUM 
4888 01 013737 001510 004176 MOV a#FC,a#DTADPB+12 ; CYLINDER 
4889 016672 013737 001352 004170 MOV TRCKWC ,a#DTADPB+4 ;WORD COUNT 
4890 016700 012737 050202 004172 MOV #BUFFER, a#DTADPB+6. ; BUFFER ADDRESS 
4891 016706 012737 000161 004166 MOV #WRITE,@#DTADPB+2 ;COMMMAND 
4892 0167146 032737 100000 001220 BIT #Sw'S,aeC.SWR  ;WRITE THe DISK PACK BEFORE TESTING? 
4893 016722 001027 BNE 3$ = NO--BRANCH 
4894 016724 004037 031104 JSR RO, a#F ILRAN *FILL DATA BUFFER WITH RANDOM DATA 
4895 016730 005037 004174 1$: CLR a#DTADPB+ 10 >SECTOR AND TRACK 
4896 016736 012737 016734 001110 MOV #.,SLPERR :SETUP THE ERROR LOOP ADDRESS 
4897 016742 012706 001100 MOV #STACK,SP “LOAD THE STACK POINTER 
4898 016746 2$: 
4899 016746 004037 025642 JSR RO, a#DRVCAL :START A DATA TRANSFER | 
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4901 016756 122737 000023 004175 CAPB #19. ,@#DTADPB+11 ; TIME FOR NEXT CYLINDER 
4902 016764 003370 BGT 2% ;NO--BRANCH 

49035 016766 005237 004176 INC a#DTADPB+12 

4906 016772 023737 001512 004176 CMP @4LC ,@#DTADPB+12 ;OUT OF CYLINDERS? 

4905 017 002355 BGE 1$ ;NO--BRANCH 

46906 017002 012737 177400 004170 3%: MOV #SCTRWC ,Q@#DTADPB+4 ;WORD COUNT 

4907 017010 012737 017024 001106 MOV #TEST21 ,Q#SLPADR 

4908 017016 012737 017024 001110 MOV #TEST21 ,Q#SLPERR 

4909 017024 012706 001100 TEST21: MOV #STACK,SP SET STACK POINTER 

4910 017030 004037 031360 JSR RO, @#RANADR ;GENERATE A RANDOM ADDRESS 
4911 017036 013737 004174 001340 MOV @#DTADPB+10,a#SVADR ; SAVE THE TRACK/SECTOR 
4912 017062 013737 004176 001342 MOV AsDTADPB+12,a#SVADR+2 ;SAVE THE CYLINDER 
4913 017050 012737 000161 004166 MOV WURITE ,@#DTADPB+2 ;COMMAND=WRITE DATA 

4914 017056 012701 050202 MOV #BUFFER,RI BUFFER ADDRESS 

4915 017062 010137 004172 MOV R1,a#DTADPB+6 
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CZRJAD.P11  28-MAR-79 11:28 121 RANDOM ADDRESS AND RANDOM PATTERN TEST $€Q 0097 
4916 017066 006037 031324 JSR RO, a#@RANPAT :GENERATE RANDOM PATTERN 
4917 017072 012737 017072 001110 Mov #. SLPERR “SETUP THE ERROR LOOP ADDRESS 
4918 017100 012706 001100 MOV #STACK, SP [LOAD THE STACK POINTER 
4919 017106 006037 025642 JSR RO, a#DRVCAL [START A DATA TRANSFER 
4920 017110 004037 031360 JSR RO, a#RANADR 
4921 017114 012737 000171 004166 MOV #READ, @#DTADPB+2 ;COMMAND=READ DATA 
4922 017122 012737 051202 004172 MOV #BUIFERS512. ,Q#DTADPB*6 sBUFFER ADDRESS 
4923 017130 012737 017130 001110 MOV #., SLPERR :SETUP THE ERROR LOOP ADDRESS 
4924 017156 012706 001100 MOV #STACK,SP “LOAD THE STACK POINTER 
4925 O17142 006037 025642 JSR RO, a#DRVCAL “START A DATA TRANSFER 
4926 017146 006037 031126 JSR RO, a#RANCK “CHECK THE DATA 
4927 017152 013737 001340 004174 MOV asSVADR a#DTADPB+10 ;GET ADDRESS OF WHERE THE LAST 
4928 017160 013737 001342 004176 MOV asSVADR+2,a#DTADPB412 ;WRITE WAS PERFORMED 
4929 017166 012737 000151 004166 MOV #WRCKD, @#DTADPB*2 ;COMMAND=WRITE CHECK DATA 
4930 017174 012737 050202 004172 MOV #BUFFER,a@#DTADPB+6 ;DATA BUFFER ADDRESS 
4931 017202 012737 017202 001110 MOV #.,SLPERR :SETUP THE ERROR LOOP ADDRESS 
4932 017210 012706 001100 MOV #STACK, SP “LOAD THE STACK POINTER 
4933 017214 004037 025642 JSR RO, a#DRVCAL “START A DATA TRANSFER 
4934 017220 004037 031360 SR RO, a#RANADR “GENERATE A RANDOM ADDRESS 
4935 017224 012737 000171 004166 MOV #READ, a#DTADPB+2. ; COMMAND=READ 
4936 017232 012737 051202 004172 MOV WBUFFER+512. ,a@#DTADPB+6 ;DATA BUFFER ADDRESS 
4937 0172460 012737 0172460 001110 MOV #. ,SLPERR :SETUP THE ERROR LOOP ADDRESS 
4938 017246 012706 001100 MOV #STACK, SP “LOAD THE STACK POINTER 
4939 017252 004037 025642 JSR RO, a#DRVCAL “START A DATA TRANSFER 
4940 017256 004037 031126 VSR RO. a#RANCK “CHECK THE DATA 
4941 017262 013737 001340 004174 MOV asSVADR,a#DTADPB+10 ;GET DISK ADDRESS OF THE 
4942 017270 013737 001342 004176 MOV A#SVADR*2,a#DTADPB+12 ;LAST WRITE 
4943 017276 012737 000151 004166 MOV #WRCKD,@#DTADPB+2 ;COMMAND=WRITE CHECK DATA 
4944 017304 012737 050202 004172 MOV WBUF FER, @#DTADPB+6 ;DATA BUFFER ADDRESS 
4945 017312 012737 017312 001110 MOV #. ,SLPERR :SETUP THE ERROR LOOP ADDRESS 
4946 017320 012706 001100 MOV #STACK, SP “LOAD THE STACK POINTER 
4947 017324 004037 025642 JSR RO, a#DRVCAL “START A DATA TRANSFER 
4948 017330 000004 EX1T21: SCOPE ‘LOOP ? 
494 
4950 “SBITL *#* RPOS ACCESS TIME ADJUSTMENT TEST «#e 
4 
4952 speeeerrererererreerresesrereeeeeeererrerarenaneneeraeenenentenee 
4953 TEST 22 RPO ACCESS TIME ADJUSTMENT TEST 
4954 
4955 se THIS TEST PERFORMS SEEKS BETWEEN CYLINDERS 0 & 136 TO ALLOW THE 
4956 ve OPERATOR TO ADJUST THE ACCESS TIME ON AN RPOS USING THE 
4957 ie DDU. THE PROGRAM STALLS APPROXIMATELY 5 SECONDS BETWEEN SEEKS 
4958 ve SO THAT THE ACCESS TIME INDICATORS ON THE DDU MAY BE OBSERVED. | 
4 
4960 speeeearerererrerserrererererererrererseneraneneereenentereseenete 
4961 017332 1$122: 
4962 017332 000240 NOP 
4963 017334 033737 001430 001236 BIT B1TS+<22#2-40>, TSTNMS#2 :0 THIS TEST ? 
4964 017342 001002 BNE 64 48 YES--BRANCH | 
4965 017344 000137 017502 JMP “NO--GO TO THE END OF THE PROGRAM 
4966 017350 012737 000022 001102 64$: MOV 55 asSTSTNR “SET UP TEST NUMBER AND 
4967 [CLEAR THE ERROR FLAG (SERFLG) 
4968 017356 004737 024726 JSR PC. LODPRM “LOAD THE PARMETERS FOR THE TEST 
4969 017362 012737 
4970 017370 013777 001102 161544 MOV $TS™NM,ADISPLAY ;LOAD THE TEST NUMBER INTO THE Si cpiae REGISTER 
4971 017876 013737 001506 001204 MOV aeRP’S$TIMES | :GET THE ITERATION COUNT 


017420 001110 MOV #TES"22,aMSLPERR ;SETUP THE LOOP ON ERROR ADDRES 
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CZRJAD.P11 28-MAR-79 11:28 122 RPOG ACCESS TIME ADJUSTMENT TEST 
4972 017606 112737 000144 001115 MOvB #100. ,SERMAX sMAX ERRORS ALLOWED FOR TEST 
4973 017412 012737 017420 001106 MOV #TEST22, SLPADR ;SETUP THE LOOP ADDRESS 
4974 017420 012706 001100 TEST22: MOV #STACK,SP sSETUP THE STACK POINTER 
4975 017424 013737 001512 004116 MOV LC,DPB.A+12 sENDING CYLINDER 
4976 017432 112737 000105 004106 MOve #SEEK, @#DPR.A*2 =; SEEK=COMMAND 
4977 017440 006037 025150 JSR RO, asCALL.A :60 — THE COMMAND 
4978 017444 004037 026502 JSR RO,STALL STAL 
4979 017450 001360 -WORD STALLS ADDRESS OF STALL VALUE 
4980 017452 013737 001510 004116 MOV FC, DPB. Aei2 sSTARTING CYLINDER 
4981 017460 112737 000105 004106 MOvB #SEEK, Q#0PB.A+2 ; SEEK=COMMAND 
4982 017466 004037 025150 JSR RO, a#CALL.A 3GO EXECUTE THE COMMAND 
4983 017472 004037 026502 JSR RO,STALL STALL 
4984 017476 001360 ~WORD STALLS sADDRESS OF STALL VALUE 
4985 017500 000004 ExX1122: SCOPE ;L0OP ? 
4986 
4987 
4988 
4989 -SBTTL END OF PASS ROUTINE 
4990 
4991 nee ta ta went aa 6 CU ae 
4992 « SINCREMENT THE PASS NUMBER (S$PASS 
4993 st INDICATE END-OF-PROGRAM AFTER PASSES THRU THE PROGRAM 
4994 s*]— THERES A MONITOR GO TO IT 
4995 :elF THERE ISN'T JUMP TO RESTART 
4996 
4997 017502 SEOP: 
4998 017502 104401 017510 - TYPE 65% i TYPE ASCIZ STRING 
4999 017506 000410 BR 64% :GET OVER THE ASCIZ 
5000 :765$: .ASCIZ <CR><LF><LF>/END OF PASS/ 
5001 017530 64$: 
5002 017530 005737 001232 TST QADRVSEL sANY DRIVES SELECTED? 
5003 017534 001434 BEQ 1$ ;NO--BRANCH 
5004 017536 104403 017544 TYPE 67% zr TYPE ASCIZ STRING 
5005 017542 000405 BR 66% ::GET OVER THE ASCIZ 
5006 3:67$: .ASCIZ / ON DRIVE/ 
5007 017556 66$: 
5008 017556 013746 001254 MOV O#CHKDRV,-(SP) ;;SAVE QACHKDRV FOR TYPEOUT 
5009 017502 104403 TYPOS 3:G0 TYPE--OCTAL ASCII 
5010 017564 002 -BYTE 2 zs; TYPE 2 DIGIT(S) 
5011 017565 000 .BYTE 0 3; SUPPRESS LEADING ZEROS 
5012 017566 104401 017574 TYPE 69% 37 TYPE ASCIZ STRING 
5013 017572 000412 GR 68% ::GET OVER THE ASCIZ 
5014 22698: .ASCIZ / ERRORS DETECTED=/ 
5015 017620 68$: 
$016 017620 013746 001112 MOV O#SERTIL,- (SP) i 3 SAVE OA4SERTTL FOR TYPEOUT 
5017 017624 104402 TYPOC 3G0 TYPE*=-OCTAL ASCII(ALL DIGITS) 
5018 017626 005037 001112 1$: CLR a#SERTIL ; ZERO ERROR TOTAL 
5019 017632 005037 001102 CLR STSTNM ;ZERO THE TEST NUMBER 
5020 017636 005037 001204 CLR STIMES ‘PERO THE NUMBER OF ITERATIONS 
5021 017642 005237 001100 INC SPASS >; INCREMENT THE PASS NUMBER 
5022 017646 042737 100000 001100 BIC #100000,$PASS  ;;DON'T ALLOW A NEG. NUMBER 
5023 017654 005327 DEC (PC)+ ::LO0P? 
5024 017656 000010 SEOPCT: . WORD 8. 
5025 017660 003030 BGT $DOAGN 77 YES 
5026 017662 012737 MOV (PC 4 ,a(PC)* s:RESTORE COUNTER 
5027 017664 000010 SENDCT: WORD 8. 
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5028 017666 017656 SEOPCT 
5029 017670 104401 017676 TIPE 
5030 017674 000410 8 
5031 37658: ASCI2 
5032 017716 64%: 
$033 017716 104401 017746 TYPE 
5034 017722 013700 000042 $GET42: MOV 
5035 017726 001405 BEQ 
5036 017730 000005 RESET 
5037 017732 004710 SENDAD: JSR 
5038 017734 000240 NOP 
5039 017736 000240 NoP 
5040 017740 000240 NOP 
5041 017742 SDOAGN: 
$042 017742 000137 JMP 
5043 017744 songs SRTINAD: .WORD 
5044 017746 377 377 000 SENULL: .BYTE 
5045 017752 EVEN 


MACY11 30A(1052) 


PASS ROUTINE 


65% 

64% 
<CR><LF>/END OF 
, SENULL 
2#42,R0 

SDOAGN 


PC, (RO) 


a(P()¢ 
RESTART 
-1,-1,0 


1 8 
24-MAY-79 13:59 PAGE 103 


sae ASCIZ STRING 
tist OVER THE ASCIZ 


; TYPE NULL CHARACTER 
3;GET MONITOR ADDRESS 
;;BRANCH IF NO MONITOR 
7; CLEAR THE WORLD 

3;G0 TO MONITOR 

3; SAVE ROOM 


ssACTII 
7 RETURN 
sENULL CHARACTER STRING 


ee - ay 


ee 
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5047 -SBTTL *** SYSMAC SUBROUTINES *** 
5049 -SBTTL ERROR HANDLER ROUTINE 


" 
| 
| 

5051 PptteeeereerererereereereererereerereeertereereetenenerTeTeneeTes 

5052 s*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 

5653 s*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 

5054 s*AND GO TO TYPERR ON ERROR 

5055 s*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

5056 3*Swl5- HALT ON ERROR 

5057 :*Sw13=1 INHIBIT ERROR TYPEOUTS 

5058 3*Swl0=1 BELL ON ERROR 

5059 7*Sw09=1 LOOP ON ERROR 

5060 7*CALL 

5061 3@ ERROR N 7; ERROR=EMT AND N=ERROR ITEM NUMBER 

017752 SERROR: 

5064 017752 104407 CKSWR zs: TEST FOR CHANGE IN SOFT=-SWR 
017754 032777 900400 161156 BIT #SWOB,aSWR sSEND ERROR MESSAGE TO TTY? 

5066 017762 001411 BEQ 7$ 3; YES--BRANCH 

5067 017764 005737 001230 TST OALPTAVL 31S THERE A LINE PRINTER AVAILABLE? 

5068 017770 001406 BEQ 7$ NO--BRANCH 

5069 017772 013737 001420 001150 MOV QALPS ,aaSTPS sYES--SETUP STATUS 

5070 020000 013737 001422 001152 MOV a#LPB,av$iPB ;AND BUFFER REG.'S FOR LINE PRINTER 

5071 9020006 105237 001103 7$: INCB SERFLG 7:SET THE ERROR FLAG 

5072 020012 001775 BEQ 7$ 7:DON'T LET THE FLAG GO TO ZERO 

5073 020014 013777 001102 1 20 MOV STSTNM,ADISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG 

5074 020022 032777 002000 1 10 BIT #B1T10,aSwR ;:BELL ON ERROR? 

5075 020030 001402 BEQ 1$ 3:NO - SKIP 
5076 020032 104401 001210 TYPE , $BELL 77RING BELL 
5077 020036 005237 001112 1$: INC SERTITL :;COUNT THE NUMBER OF ERRORS 
5078 020042 011637 001116 MOV (SP) ,SERRPC ;:GET ADDRESS OF ERROR INSTRUCTION 
16 SUB #2, SERRPC 
5080 14 MOVB ASERRPC »SITEMB sSTRIP AND SAVE THE ERROR ITEM CODE 

5081 020062 032777 020000 50 BIT #B1T13,aSWR SKIP TYPEOUT IF SET 

5082 020070 001004 BNE 208 ::SKIP TYPEOUTS 

5083 020072 004737 020172 JSR PC, TYPERR 3:GO TO USER ERROR ROUTINE 

5084 020076 104401 001215 TYPE /SCRLF 

| 5085 020102 20$: 

5086 020102 005777 161032 2$: TST aSWR :7HALT ON ERROR 
5087 020106 100002 BPL 3$ ::SKIP IF CONTINUE 

5088 020110 000000 HALT >; HALT ON ERROR: 

5089 020112 104407 CKSWR 3:TEST FOR CHANGE IN SOFT=SwWR 

5090 020114 032777 001000 161016 3$: BiT #BiTC9,aSwR ;;LOOP ON ERROR SWITCH SET? 

5091 020122 001402 BEQ 4% 37BR IF NO 

5092 020124 013716 001110 MOV SLPERR, (SP) sr: FUDGE RETURN FOR LOOPING 

| 5093 020130 005737 001206 4$: TST SESCAPE >; CHECK FOR AN ESCAPE ADDRESS 

5094 020134 001402 BEQ 5$ 3:BR IF NONE 

5095 020136 013716 001206 MOV SESCAPE,(SP) s:FUDGE RETURN ADDRESS FOR ESCAPE 

5096 020142 5$: 

5097 020142 023737 000042 000046 CMP 442 ,a#46 :ACT11 AUTOMATIC MODE? 

| 5098 020150 001001 BNE OS :NO, CONTINUE 

| | 
| | 


5100 020154 013737 001414 001150 6$: MOV QF TPS ,aM$TPS SET STATUS AND BUFFER REG.'S 
$101 020162 013737 001416 001152 MOV asTPB,ae#$1PB sFOR TTY 
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5102 020170 000002 RT] RETURN FROM ERROR CALL 


ppeeeeereerrerreeeeeteereeteeeeeererereneteeeeeerererereeeeTeeTes 
-SBTTL TYPERR - TYPE ERROR ROUTINE 

THIS ROUTINE USES THE “ITEM CONTROL BYTE’’ (SITEMB) TO DETERMINE 
sWHICH ERROR 1S TO BE REPORTED, 11 THEN OBTAINS, FROM THE “ERROR 
7; TABLE*’’ (SERRTB), ANC REPORTS THE APPROPIATE INFORMATION 
;CONCERNING THE ERROR. 


001215 TYPE SCRLF sYES 

020362 104401 4$%: TYPE 

020364 000000 5$: -wORD 0 :MESSAGE POINTER GOES HERE 
020366 005701 TST R1 sMORE TO TYPE? 

020370 001403 BEQ 6$ =NO--BRANCH 


PPAAPAANUIEN 
SOUS WHO 

So 

Nm 

oS 

Ww 

w 

o 

— 

So 

F 

=) 

— 
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5103 
5104 
5105 
5106 
5107 
5108 
5109 
5110 7 CALL 
5111 : JSR PC aa TYPERR 
aig 3 RETURN 
5114 020172 113737 001102 001176 TYPERR: MOVB QasSTSTINM, a#STMPO ;SAVE THE TEST NUMBER 
5115 020200 104412 SAVREG sSAVE RO - R5 
5116 020202 162700 000004 SUB #& RC sFORM TEST PC 
5117 020206 010037 001162 MOV RO, a#$REGO :COPY RO-RS IN $REGO-S$REGS 
$118 020212 010137 001164 MOV R1,a#SREG1 
5119 020216 010237 001166 MOV R2, a#SREG2 
5120 020222 010337 001170 MOV R3,aaSREGS 
5121 020226 010437 901172 MOV R4 ,a#SREGS 
5122 020232 010537 001174 MOV R5,a#S$REGS 
$123 020236 113700 001114 MOVB a#$1TEMB,RO PICKUP ERROR ITEM NUMBER 
$124 020242 010001 MOV RO,R1 :AND COPY IT INTO R1 
$125 020244 005300 DEC RO . FORM INDEX FOR ERROR TABLE 
5126 020246 106300 ASLB RO 
5127 020250 106300 ASLB RO 
5128 020252 106300 ASLB RO 
5129 020254 103002 BCC 1$ 71S ERROR > 37? 
5130 020256 062700 000240 ADD #ITEMGI-SERRTB,RO ; YES--FORM OFFSET 
5131 020262 062700 004306 1$: ADD #SERRTB,RO FORM ADDRESS 
5132 020266 012037 020302 MOV (RO)+,28 GET ERROR MESSAGE (EM) POINTER 
5133 020272 001447 BEQ 7$ BRANCH IF THERE ISN'T ONE 
5134 020274 104401 001215 TYPE »SCRLF sCARRIAGE RETURN - LINE FEED 
5135 020300 104401 TYPE 
5136 020302 000000 2%: -wORD O : ‘EM’ POINTER GOES HERE 
5137 020304 162701 000041 SUB #41,R1 SPECIAL ERROR ITEM NUMBER? 
5138 020310 100440 BM] 7$ >NO--BRANCH 
5139 020312 013701 001260 MOV a#SVSTAT,RI GET STATUS/ERROR INDICATOR 
5140 020316 106301 ASLB * Rl :STRIP ‘‘DONE’’ BIT (BITO7) 
5141 020320 006301 ASL R1 STRIP ERROR’ BIT (BIT15) 
$142 020322 012702 004254 MOV #STATBL,R2 :1ST ADDRESS ON STATUS MESSAGE POINTERS 
5143 020326 005003 CLR R3 CARRIAGE RETURN-LINE FEED SWITCH 
$145 020334 000402 ee 64$ >:GET OVER THE ASCIZ 
5146 1:65$: .ASCIZ / (/ 
5147 020342 64$: 
$148 020342 012237 020364 3$: MOV (R2)+,5$ :MESSAGE POINTER 
5149 020346 006301 ASL R1 : TYPE THIS MESSAGE? 
020350 103013 BCC 6$ ;NO--BRANCH 
020352 005103 COM R3 sYES--TYPE A "CR" K a eos - 
020354 001002 BNE 4$ ;NO=-BRANCH | 
| 
| 


5144 020330 104401 020336 TYPE = , 65 TYPE ASCIZ STRING 
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| CZRJAD.P11 28-MAR-79 11:28 YPERR = TYPE ERROR ROUTINE SEQ 0102 

$158 020372 104401 044330 TYPE MSG.SP s YES--SPACES 
5159 020376 000761 BR g LOOP 

$160 020400 0601360 6$: BNE 3$ ‘BRANCH IF NOT FINISHED 

$161 020602 104401 020410 TYPE 67% >: TYPE ASCIZ STRING 

$162 020406 000401 BR 66$ ::GET OVER THE ASCIZ 

5163 ::67$: .ASCIZ /)/ 

$164 020412 6$: 

$165 020412 012037 020426 7$: MOV (RO) +, 8$ :PICK UP DATA HEADER (DH) POINTER 
5166 020616 001404 BEQ 9$ [BRANCH IF NONE 

5167 020420 104401 001215 TYPE SCRLF [CARRIAGE RETURN-LINE FEED 

5168 020624 104401 TYPE 

$169 020426 000000 8$: .WORD 0 :“DH' POINTER GOES HERE 

$170 020430 012001 9$: MOV (RO)#,R1 =PICKUP DATA TABLE (D1) POINTER 
5171 020432 001450 BEQ 208 :BRANCH IF NONE 

$172 020434 005005 CLR RS >SET INDENT SWITCH 

5173 020636 012000 MOV (RO)+,RO [DATA FORMAT (DF) POINTER 

$174 020640 012002 MCV (RO)+,R2 “NUMBER OF DH'S TO TYPE 

$175 020662 001441 BEQ 17$ ‘BRANCH IF DH NUMBER IS 0 

$176 020444 005105 COM RS :NO INDENT 

$177 020446 104401 901215 TYPE /SCRLF [CARRIAGE RETURN-LINE FEED 

5178 020652 112003 10$: MOVB  (RO)+,R3 “NUMBER OF DATA WORDS TO TYPE 

$179 020454 112004 MOVB = (RO) +. RG [AND HOW TO TYPE THEM 

5180 020456 006004 11$: ROR RG SOCTAL OR DECIMAL? 

5181 020660 103403 BCS 12% : DECIMAL --BRANCH 

5182 020462 013146 MOV acR1)+*,-(SP) >:SAVE @(R1)* FOR TYPEOUT 

5183 020464 104402 TYPOC ::G0 TYPE--OCTAL ASCII(ALL DIGITS) 
5184 020466 000402 BR 13$ 

5185 020470 12$: 

5186 020470 013146 MOV a(R1)+,-(SP) ::SAVE a(R1)4* FOR TYPEOUT 

$187 020472 104405 TYPDS >:G0 TYPE--DECIMAL ASCII] WITH SIGN 
$188 020674 005303 13$: DEC R3 :MORE NUMBERS TO TYPE? 

5189 020676 001403 BEQ 14$ = NO=--BRANCH 

5190 020500 104401 044330 TYPE MSG. SP SYES@-TYPE SEPERATORS | 
5191 020506 000764 BR 11$ LOOP 

5192 020506 005302 14$: DEC R2 “MORE DH'S? | 
5193 020510 003421 BLE 208 :NO--BRANCH 

$194 020512 104401 001215 TYPE S$CRL* *YES=-START A NEW LINE 

$195 020516 005105 CoM INDENT? 

$196 020520 001002 BNE 15$ :NO--BRANCH 

5197 020522 104401 044330 TYPE .MSG.SP =YES--TYPE SPACES 

$198 020526 012037 020534 15$: MOV (RO)+, 168 :GET NEXT DH 

5199 020532 104401 TYPE sAND TYPE IT 

$200 020534 000000 168: .wORD 0 “DH POINTER GOES HERE 

$201 020536 104401 001215 TYPE “SCRLF *CARRIAGE RETURN-LINE FEED 

$202 020542 005705 TST R5 : INDENT? 

$203 020544 001342 BNE 108 :NO--BRANCH 

5204 020546 104401 044330 17$: TYPE /MSG.SP SYES--TYPE SPACES 

$205 020552 000737 10$ LOOP 

5206 020554 104413 208: RESREG *RESTORE RO - RS 

5207 020556 000207 ; RTS PC > RETURN 

$209 .SBITL TYPE ROUTINE 

HY so eeeeecerrerererererecereerereeeteeseesenareesenaeeeseneeeneNeesS 
$212 :*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
5213 *eTHE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
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uw 
Nm 
— 
- 


CR et ee 
CoOUOnOw 


Pil 


020702 


020704 


020744 


105737 


013746 
105366 


122766 


001157 


000002 


000002 
000011 
000200 


020774 


020730 
001156 


001154 
000001 


020730 
020774 


000040 
020730 


000007 020774 


160214 


000002 160206 
000015 000002 
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s*NOTE1: 
> *NOTE2: 
> *NOTES: 


> *CALL 
pe) USING A TRAP INSTRUCTION 


:#0R 


ey 


5$: 
6$: 


$: 
: 


;HORIZONTAL TAB 


8$: 
9$: 


STYPEC: 


MACY11 30A(1052) 
TINE 


TYPE 
MESADR 


SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
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SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


»MESADR 


STPFLG 
1$ 


3$ 
RO,-(SP) 
a2(SP) ,RO 
(RO)+,=(SP) 
4% 

(SP)+ 
(SP)+,R0 
#2,4SP) 


#HT, (SP) 
8$ 

#CRLF, (SP) 
5$ 

(SP)+ 


SCHARCNT 
2$ 


PC,STYPEC 
SFILLC,(SP)+ 


2$ 
SNULL ,- (SP) 
1(SP) 

6$ 

PC, STYPEC 
SCHARCNT 

7$ 
PROCESSOR 
a’ (SP) 

PC ,STYPEC 
#7, SCHARCNT 
9$ 

(SP)+ 

2$ 

astPs 
$TYPEC 


2(SP) ,aStPB 
#CR,2(SP) 


7:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


s:1S THERE A TERMINAL? 
7:BR IF YES 
s:HALT HERE IF NO TERMINAL 
: LEAVE 
7 SAVE RO 
>:GET ADDRESS OF ASCIZ STRING 
3;PUSH CHARACTER TO BE TYPED ONTO STACK 
::;BR IF IT ISN*T THE TERMINATOR 
:;1f TERMINATOR POP IT OFF THE STACK 
7 RESTORE RO 
s ADJUST RETURN PC 
3 ;RETURN 
:;BRANCH IF <HT> 


:;BRANCH IF NOT <CRiF> 
::POP <CR><LF> EQUIV 


—s:TYPE A CR AND LF 


::CLEAR CHARACTER COUNT 

7;GET NEXT CHARACTER 

3;G0 TYPE THIS CHARACTER 

::1S 11 TIME FOR FILLER CHARS.? 
7:1 NO GO GET NEXT CHAR. 

:;GET # OF FILLER CHARS. NEEDED 
3;AND THE NULL CHAR. 

7:DOES A NULL NEED TO BE TYPED? 
::BR IF NO--GO POP THE NULL OFF OF STACK 
3:60 TYPE A NULL 

::D0 NOT COUNT AS A COUNT 

3; LOOP 


;REPLACE TAB WITH SPACE 
sTYPE A SPACE 

BRANCH IF NOT AT 

3; TAB STOP 

3;POP SPACE OFF STACK 

¢;GET NEXT CHARACTER 

::WAIT UNTIL PRINTER IS READY 


7;LOAD CHAR 10 BE TYPED INTO DATA REG, 
3271S CHARACTER A CARRIAGE RETURN? 


SEQ 0103 
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CZRJAD.P11 28-MAR-79 11:28 YPE ROUTINE SEQ 0104 
5270 020752 001003 BNE 1$ >;BRANCH IF NO 
5271 020754 105037 020774 CLRB.. S$CHARCNT +3 YES@-CLEAR CHARACTER COUNT 
5272 020760 0004 BR STYPEX sEXIT 
5273 020762 122766 000012 000002 1$: CMPB @LF ,2¢SP) Zr1S CHARACTER A LINE FEED? 
$274 020770 001402 BEQ STYPEX 3;BRANCH IF YES 
$275 020772 105227 INCB (PC)+ 7:COUNT THE CHARACTER 
5276 020774 000000 SCHARCNT:.WORD 0 7; CHARACTER COUNT STORAGE 
5277 020776 000207 STYPEX: RTS PC 
5278 
5279 
eset -SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
$282 3 ,eeeerererererererererereereretenereteteneaneneteneeeeeneneeeenee 
5283 *THIS ROUTINE 1S USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
5284 s*OCTAL (ASCI1) NUMBER AND TYPE IT 
4344 Mey guia ging HERE 10 SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
3*CALL: 
5287 3* MOV NUM ,-(SP) >: NUMBER TO BE TYPED 
5288 3* TYPOS 3:CALL FOR TYPEOUT 
5289 3* -BYTE N 3:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
5290 8 BYTE 77;M=1 OR O 
5291 3 23 }=TYPE LEADING ZEROS 
3344 3¢ 37,0=SUPPRESS LEADING ZEROS 
** 
529% s*STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
5295 s*S$TYPOS OR $STYPOC 
5296 S*CALL: . 
5297 se MOV NUM ,-(SP) 3: NUMBER TO BE TYPED 
esos st TYPON 3;CALL FOR TYPEOUT 
;* 
5300 s*STYPOC---ENTER HERE FOR-TYPEOUT OF A 16 BIT NUMBER 
5301 *CALL: 
5302 3* MOV NUM,-(SP) >:NUMBER TO BE TYPED 
toy sf TYPOC 7: CALL FOR TYPEOUT 
5305 021000 017646 000000 STYPOS: MOV a(SP),-(SP) s;PICKUP THE MODE 
5306 021004 116637 000001 021223 MOVB 1(SP) ,SOFILL 3;LOAD ZERO FILL SWITCH 
§307 021012 112637 021225 MOvVB (SP)+,SOMODE+1 ;;NUMBER OF DIGITS TO TYPE 
5308 021016 062716 000002 ADD #2,<SP) ; ADJUST RETURN ADDRESS 
5309 021022 000406 BR $TYPON 
5310 021024 112737 000001 021223 S$TYPOC: MOvB #1,S0F ILL 23SeT THE ZERO FILL SWITCH 
5311 021032 112737 000006 021225 MOvVB #6, S0MODE +1 sSET FOR SIX(6) DIGITS 
5312 021040 112737 000005 021222 $TYPON: MOVB #5,S0CNT :3SET THE ITERATION COUNT 
5313 021046 010346 MOV R3,-(SP) 7: SAVE R353 
5314 021050 010446 MOV R4,-(SP) 3:SAVE R4 
5315 021052 010546 MOV R5,-(SP) 77 SAVE R5 
5316 021054 113704 021225 MOVB SOMODE*1. RG 3:;GET THE NUMBER OF DIGITS TO TYPE 
5317 021060 005404 NEG 
5318 621062 062704 000006 ADD oe 7; SUBTRACT IT FOR MAX. ALLOWED 
5319 021066 110437 021224 MOVB Re SOMODE 3;SAVE IT FOR USE 
§320 021072 113704 021223 MOVB SOFILL,R4 3:GET THE ZERO FILL SWITCH 
5321 021076 016605 000012 MOV 12(SP),R5 ::PICKUP THE INPUT NUMBER 
5322 021102 005003 CLR R3 ::CLEAR THE OUTPUT WORD 
§323 021104 006105 1$: ROL R5 >;ROTATE MSB INTO ‘'C'’ 
5324 021106 000404 Be 3$ 3:G0 DO MSB 
5325 021110 006105 2$: ROL R5 s:FORM THIS DIGIT 
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$326 021112 006105 ROL RS 

5327 021114 006105 ROL R5 

5328 021116 010503 MOV R5,R3 

$329 021120 006103 3$: ROL R3 7;GET LSB OF THIS DIGIT 

$330 021122 105337 021224 DECB SOMODE s; TYPE THIS DIGIT? 

5331 021126 100016 BPL 7% ;;BR IF NO 

5332 021130 042703 177770 BIC #177770,R3 3;GET RID OF JUNK 

5333 021134 001002 BNE 4% 7; TEST FOR O 

5334 021136 005704 TST RG 7; SUPPRESS THIS 0? 

5335 021140 001403 BEQ 5$ ::BR IF YES 

5336 021142 005204 4$: INC RG 7;DON'T SUPPRESS ANYMORE 0°S 

5337 021144 052703 000060 BIS #'0,R3 s;MAKE THIS DIGIT ASCII 

5338 021150 052703 000040 58: BIS a’ RS 3 ;MAKE ASCII IF NOT ALREADY 

5339 021154 110337 021220 MOvVB R3,8% >; SAVE FOR TYPING 

5340 021160 104401 021220 TYPE 8 3:;G0 TYPE THIS DIGIT 

5341 021164 105337 021222 7$: DECB SOCNT ;;COUNT BY 1 

5342 021170 003347 BGT 28 3;BR IF MORE TO DO 

5343 021172 002402 BLT 6$ :;BR IF DONE 

5344 021174 005204 INC RG >, INSURE LAST DIGIT ISN'T A BLANK 
5345 021176 000744 BR 23 3;G0 DO THE LAST DIGIT 

5346 021200 012605 6$: MOV (SP)4+,R5 s RESTORE R5 

5347 021202 012604 MOV (SP)4,R4 RESTORE R4 

5348 021204 012603 MOV (SP)+,R3 RESTORE R3 

5349 021206 016666 000002 000004 MOV 2(SP),4(SP) ::SET THE STACK FOR RETURNING 

5350 021214 012616 MOV (SP)+#, (SP) 

5351 021216 000002 RT1 > ;RETURN 

5352 021220 000 &$: -BYTE O ::STORAGE FOR ASCII DIGIT 

5353 021221 000 YT 0 TERMINATOR FOR TYPE ROUTINE 

5354 021222 000 SOCNT: .BYTE 0 ;;OCTAL DIGIT COUNTER 

5355 021223 000 SOFILL: .BYTE 0 7; ZERO FILL SWITCH 

Bae 021224 000000 SOMODE: .WORD 0 > ;NUMBER OF DIGITS TO TYPE 

4 44 .SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

5360 pp eeeereereeerrrerrererererereteeerreereereneteeeeeReeenetereee Tee 
5361 s*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
5362 :*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
5363 s*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
5364 :*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
5365 s*REPLACED WITH SPACES. 

5366 s*CALL: 

5367 re MOV NUM, -(SP) >;PUT THE BINARY NUMBER ON THE STACK 
5368 it TYPDS :;60 TO THE ROUTINE 

5369 

5370 021226 STYPDS: 

5371 021226 010046 MOV RO,-(SP) >;PUSH RO ON STACK 

5372 021230 010146 MOV R1,-(SP) >;PUSH R1 ON STACK 

5373 021232 010246 MOV R2,-(SP) :;PUSH R2 ON STACK 

5374 021234 010346 MOV R3,-(SP) >;PUSH R3 ON STACK 

5375 021236 010546 MOV R5,-(SP) :;PUSH RS ON STACK 

5376 021240 012746 020200 MOV #20200,-(SP) :;SET BLANK SWITCH AND SIGN 

5377 021244 016605 000020 MOV 20(SP),R5 :;GET THE INPUT NUMBER 

5378 021250 100004 BPL 1$ ::BR If INPUT IS POS. 

5379 021252 005405 NEG R5 > ;MAKE THE BINARY NUMBER POS. 

5380 021254 112766 000055 000001 MOVB #'=,1(SP) > MAKE THE ASC1] NUMBER NEG. 

5381 021262 005000 1$: CLR RO >; ZERO THE CONSTANTS INDEX | 
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000000 
000000 
000000 
000002 
021462 


021442 
000940 


021432 


000001 177777 


000060 
000040 


000010 


177777 =177776 
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000002 000004 
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st gen nee -y 
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SEQ 0106 


;;SETUP THE OUTPUT POINTER 
7;SET THE FIRST CHARACTER TO A BLANK 
NUMBER 


33GE 
: FORM THIS BCD DIGIT 
;BR IF DONE 
INCREASE THE BCD DIGIT By 1 


3;ADD BACK THE CONSTANT 
7;CHECK IF BCD DIGIT=0 
77FALL THROUGH IF 0 
s:STILL DOING LEADING 0°S? 
5 se IF YES 


::BR IF N 

SES HoSET THE SIGN 

;;MAKE THE BCD DIGIT ASCII 

;;MAKE IT A SPACE IF NOT ALREADY A DIGIT 
;;PUT THIS CHARACTER IN THE OUTPUT BUFFER 
;;JUST INCREMENTING 

;:CHECK THE TABLE INDEX 

;;G0 DO THE NEXT DIGIT 


E LSD 
;;60 CHANGE TO ASCII 
7:WAS THE LSD THE FIRST NON-ZERO? 
:;BR IF NO 
>; YES--SET THE SIGN FOR TYPING 
7;SET THE TERMINATOR 
; STACK INTO R5 
STACK INTO R3 
STACK INTO R2 
STACK INTO R1 
STACK INTO RO 
;;NOW TYPE THE NUMBER 
ADJUST THE STACK 


® psetererererertereerreretereereeereereeenereaneeeeeeeneneseneeete 


MOV #SDBLK RS 
MOVB sow (RS) 
23%: CLR R2 
MOV SDTBL(RO),RI 
3$: $uB R1RS 
BLT 4% 
INC ao 
BR 3% 
4$: ADD R1,R5 
TST R2 
BNE 5$ 
TST1B (SP) 
BM 7$ 
5$: ASLB (SP) 
BCC 6$ 
MOVB 1(SP),-1(R3) 
6$: BIS #'O,R2 
7$: BIS a’ ,R2 
MOVB R2,(R3)* 
TST (RO)+ 
CMP RO,#10 
BLT 2$ 
BGT 8$ 
MOV R5,R2 
BR a 
8$: TSTB (SP)+4 
BPL 9$ 
MOVB -1(SP),-2(R3) 
9$: CLRB (R3) 
MOV (SP)+,R5 
MOV (SP)+,R3 
MOV (SP)+,R2 
MOV (SP)+,R1 
MOV (SP)+,RO 
TYPE , SDBLK 
MOV 2(SP),4(SP) 
MOV (SP)+, (SP) 
RT 
$DTBL: 10000 
1000. 
100. 
10. 
S$DBLK: .BLKW 4 
.SBTTL TTY INPUT ROUTINE 
 ENABL LSB 
$TKCNT: .WORD 0 
$TKQIN: .WORD 0 
$TKQOUT: .WORD 0 
$TKQSRT: .BLKB 2 
STKQEND=. 
s*TK INITIALIZE ROUTINE 
:*THIS ROUTIN 


; ;NUMBER OF ITEMS IN QUEUE 
>; INPUT POINTER 
;;OUTPUT POINTER 


> ;RETURN TO USER 
si TTY KEYBOARD QUEUE 


E WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 





nintiinbiieninel 


we a a 
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021530 


021532 
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021704 
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117746 


001500 


022737 


002405 


021452 
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000003 
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021462 
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000007 
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000023 
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157252 
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TY INPUT ROUTI 
;*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


> *CALL: 
*@ 


SIKINT: 


JSR 
RETURN 


PC, STKINT 


STKCNT 


#STKQSRT,STKQIN ;;MO 
STKQIN, STKQCUT 
#STKSRV As TKVEC 
+ tol pac catte 


astKB 
#100 ,asTKs 
PC 


:*TK SERVICE ROUTINE 


s*THIS ROUTINE WILL SERVICE THE 


. 9 
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;;CLEAR COUNT OF ITEMS IN QUEUE 

VE THE STARTING ADDRESS OF THE 
:;QUEUE INTO THE INPUT & OUTPUT POINTERS. 
; INITIALIZE KEYBOARD VECTOR 

33""BR"’ LEVEL 4 

;;CLEAR DONE FLAG 

7; ENABLE TTY KEYBOARD INTERRUPT 

>;RETURN TO CALLER 


TTY KEYBOARD INTERRUPT 


>*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 
7*1T IN THE QUEUE. 


7*1F THE CHARACTER IS A “‘CONTROL-C"° 


(*C) STKINT IS CALLED AND 


;*UPON RETURN EXIT IS MADE TO THE “‘CONTROL-C"’ RESTART ADDRESS (START2) 


STKSRV: HOVE 


2s: 


3$: 


31$: 


32%: 


a$1KB,-(SP) 
#*C177, (SP) 
(SP) #3 

1$ 

-SCNTLC 

PC, STKINT 
(SP)+ 
START2 

(SP) ,#7 


2 
#SWREG, SWR 
6$ 


#2, STKCNT 
3$ 


, SBELL 
(SP)+ 


5% 

(SP) ,#23 
328 

asTKs 

(SP)+ 
asTKs 

31$ 
a$TKB,-(SP) 


#*C177, (SP) 
(SP)+,#21 


31$ 
#100,a8$TKS 


STKCNT 
(SP), #140 
4% 





;;PICKUP THE CHARACTER 
siSTRIP THE JUNK 

3:18 17 A CONTROL C? 

3; BRANCH IF NO 

zs; TYPE A CONTROL-C (*C) 
3: INIT THE KEYBOARD 
3;CLEAN UP STACK 

7; CONTROL C RESTART 
3:18 17 A CONTROL G? 
;;BRANCH IF NO 

si1S SOFT-SWR SELECTED? 
3;G0 TO SWR CHANGE 


3:18 THE QUEUE FULL? 

;;BRANCH IF NO 

s;RING THE TTY BELL 

3; CLEAN CHARACTER OFF OF STACK 


s EXIT 

7:18 IT A CONTROL=S? 

;;BRANCH IF NO 

7; :DISABLE TTY KEYBOARD INTERRUPTS 
3: CLEAN CHAR OFF STACK 

>;WAIT FOR A CHAR 

3;LOOP UNTIL ITS THERE 

3;GET THE CHARACTER 

s;MAKE IT 7-BIT ASCII 

3:18 IT A CONTROL-Q? 

;;BRANCH IF NO 

> ;REENABLE TTY KEYBOARD INTERRUPTS 
> ;RETURN 

3; COUNT THIS CHARACTER 

2:18 17 UPPER CASE? 

> ;BRANCH IF YES 


SEQ 0107 


a a a 





CZRJAD RPOG/5/6 a) Set ayy aaa TEST WMACYI1 a 


pp eeeerererererererrererrerererereeeeerrereeHerereerenerereneeene 


PLeweeeeeneeeerereereeerereeeereeeerereeeKereRtererenererenereTee 

s*CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 

7*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 

;*CONTROL-G BEING ren AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 
PB 37; ARE WE RUNNING IN AUTO-MODE? 


e 9 
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PAGE 112 


31S IT A SPECIAL CHAR? 


3 ;BRANCH IF 


YES 


; MAKE IT UPPER CASE 


33AND PUT | 


;BRANCH IF 
PRESET THE 
>; RETURN 


T IN QUEUE 


: ;UPDATE THE POINTER 
3;GO OFF THE END? 


NO 
POINTER 


FROM THE TRAP HANDLER, AND WILL 
s*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 


31S THE SOFT=SWR SELECTED 


3sEX1T IF NOT 


3:18 A CHAR 


WAITING? 


3 1F NOT, EXIT 


77 YES 
7: MAKE IT 


7-BIT ASCII 


31S IT A CONTROL -G? 


sc 1Ff NOT, 
3 ;AND EXIT 


>; BRANCH IF 


;;CLEAR CONTROL-G OFF STACK 
7:FLUSH THE TTY INPUT QUEUE 
7;DISABLE TTY KEYBOARD INTERRUPTS 
3:SET INTERRUPT MODE INDICATOR 


3;ECHO THE CONTROL-G 


YES 


Pul IT IN THE TTY QUEUE 


(*G) 


3: TYPE CURRENT CONTENTS 
7: SAVE SWREG FOR TYPEOUT 


3:GO TYPE=-OCTAL ASCII(ALL DIGITS) 


3;PROMPT FOR NEW SWR 
3: CLEAR COUNTER 

7; THE NEW SwWR 

3; CHAR THERE? 


3;1F NOT TR 


Y AGAIN 


>;P1CK UP CHAR 
:;MAKE IT 7-BIT ASCII 


7:18 IT A CONTROL-C? 


;; BRANCH IF 


33 YES, ECHO CONTROL=C (*C) 


3: CLEAN UP 


> ;REENABLE TTY KEYBOARD INTERRUPTS? 


: ;sBRANCH IF 


NOT 
STACK 
NO 


CZRJAD.P11 28-MAR-79 1 TY INPUT ROUTI 
5494 021706 021627 000175 CMP (SP) ,#175 
5495 021712 003002 BGT 4$ 
5496 021714 042716 000040 BIC #40, (SP) 
5497 021720 112677 177530 4$: MOvB (SP)+,@$TKQIN 
5498 021724 005237 021454 INC STKQIN : 
5499 021730 023727 021454 021462 CMP STKQIN,#STKQEND ; 
5500 021736 001003 BNE 5 
5501 021740 012737 021460 021454 MOV #STKQSRT,STKQIN 
5502 021746 000002 5$: RT] 
5503 
504 
5505 s*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
gene ;*ROUTINE IS ENTERED 
5508 ;*CALL WHEN OPERATING IN TTY INTERRUPT MODE. 
5509 021750 022737 000176 001140 S$CKSWR: CMP #SWREG, SWR 33 
5510 021756 001124 BNE 15$ 
5511 021760 105777 157160 TSTB asiKs 
5512 021764 100121 BPL 15$ 
5513 021766 117746 157154 MOVB as$TKB,-(SP) 
5514 021772 042716 177600 BIC #*C177, (SP) 
5515 021776 021627 000007 CMP (SP), #7 
5516 022002 001300 BNE 2$ 
5517 
5518 
5519 
5520 
5521 
5522 
$523 022004 123727 001134 000001 68: CM $AUTO 
5524 022012 001674 BEQ 2$ 
5525 022014 005726 TST (SP)¢ 
5526 022016 004737 021462 JSR PC, STKINT 
5527 022022 005077 157116 CLR asiKks 
$44 022026 112737 000001 001135 MOVB #1,SINTAG 
5530 022034 104401 022674 TYPE »$CNTLG 
5531 022040 104401 022701 $GTSWR: TYPE . SMSWR 
5532 022044 013746 000176 MOV SWREG,-(SP) 
5533 022050 104402 TYPOC 
534 022052 104401 022712 TYPE . SMNEW 
5535 022056 005046 19$: CLR - (SP) 
5536 022060 005046 CLR -(SP) 
5537 022062 105777 157056 7$: TSTB astKs 
444 022066 100575 BPL 7$ 
5540 022070 117746 157052 MOVB a$TKB,-(SP) 
Reel 022074 042716 177600 BIC #*C177, (SP) 
4 
5543 022100 021627 000005 CMP (SP) #3 
5544 022104 001015 BNE 9$ 
5545 022106 104401 022662 TYPE »SCNTLC 
5546 022112 062706 000006 ADD #6,SP 
$547 022116 123727 001135 000001 CMPB SINTAG,#1 
5548 022124 001003 BNE 8$ 
$549 022126 012777 000100 157010 MOV #100,a$TKS 


>; ALLOW TTY KEYBOARD INTERRUPTS 


SEQ 0108 
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022134 


022140 


022156 


022160 


022310 


022312 


022336 


000137 


021627 


000720 


011646 


000002 
005737 


004730 


000025 


022667 
000006 


000015 
000004 


coooee 156736 


: 
001135 
000100 


020730 
000060 


000067 


000060 
000002 


000001 
156714 


000002 
177776 


001214 


000004 000002 


000004 
022336 


021452 


MACY11 M+ eeepc 
TTY INPUT ROUTI 


88: JMpP START2 
9$: CMP (SP) ,#25 
BNE 10% 
TYPE »SCNTLU 
208 ADD #6,SP 
BR 19% 
108 CMP (SP) #15 
BNE 16$ 
TST 4 (SP) 
BEQ 11% 
MOV 2(SP) ,aSwR 
118: ADD #6,SP 
4$: TYPE - SCRLF 
CMPB SINTAG,#1 
BNE 15$ 
MOV #100,a$TKS 
5$ RT] 
16$ JSR PC ,STYPEC 
CMP (SP) ,#60 
BLT 18$ 
CMP (SP) ,#67 
BGT 18$ 
BIC #60, (SP)+ 
TST 2(SP) 
BEQ 17% 
ASL (SP) 
ASL (SP) 
ASL (SP) 
17$: INC 2(SP) 
BIS -2(SP),(SP) 
BR 7$ 
18$: TYPE , SQUES 
20% 


BR 
-DSABL LSB 
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>; CONTROL-C RESTART 


7:18 17 A CONTROL=U? 
>;BRANCH IF NOT 

77:YES, ECHO CONTROL-U (“U) 
3; 1GNORE PREVIOUS INPUT 
7;LET'S TRY IT AGAIN 


7:18 IT A <CR>? 

;;BRANCH IF NO 

s7YES, IS IT THE FIRST CHAR? 
> BRANCH IF YES 

3; SAVE NEW SwWR 

3;CLEAR UP STACK 

7;ECHO <CR> AND <LF> 
RE-ENABLE TTY KBD INTERRUPTS? 
>;BRANCH IF NOT 

> RE-ENABLE TTY KBD INTERRUPTS 
3 RETURN 

3;ECHO CHAR 

s:CHAR < 0? 

> BRANCH IF YES 

>;CHAR > 7? 

;;BRANCH IF YES 

s:STRIP-OFF ASCII 

3:18 THIS THE FIRST CHAR 
;;BRANCH IF YES 

3:NO, SHIFT PRESENT 

is CHAR OVER TO MAKE 

zs ROOM FOR NEW ONE. 

3 :KEEP COUNT OF CHAR 

3;SET IN NEW CHAR 

3:GET THE NEXT ONE 

sr TYPE ?<CR><LF> 

>; SIMULATE CONTROL=-U 


Sp eeeeerererererervereerererereeererenererereneeerereneneneeneees 


s*TH]S ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


s*CALL: 

38 RDCHR 

st RETURN HERE 

** 

$RDCHR: MOV (SP) ,-(SP) 
MOV 4(SP),2(SP) 
CLR 4 (SP) 
CLR (SP) 
MOV #64$,-(SP) 
RT] 

64%: 

1$: TST STKCNI 


3:GET A CHARACTER FROM THE QUEUE 
>; CHARACTER IS ON THE STACK 
s:WITH PARITY BIT STRIPPED OFF 


—, ‘we THE PC AND 
i: H 

;GET READY FOR A CHARACTER 
:EPUT NEW PS ON STACK 
3;PUT NEW PC ON STACK 
3;POP NEW PC AND PS 


77 WALT ON A CHARACTER 





SEQ 0109 
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022400 


022402 


022576 


28-MAR- 
001775 


000002 


010346 


122723 
001305 


021452 
177102 
021456 
021456 


021460 


022636 
022662 


000177 


000134 
022634 
177777 
022636 


022634 
022634 


000134 
022634 


000025 
022667 
000022 
022636 
001214 
022634 


022634 
000015 


000004 


021462 


021456 


022634 


022634 


TTY INPUT ROUTI 


1$ 
STKCNT 
on o4 (SP) 
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;DECREMENT THE COUNTER 
$ GE ONE CHARACTER 
UPDATE THE POINTER 


QouT 
$TKQOUT, #STKOEND :2D1D 17 GO OFF OF THE END? 


IF NO 


2$ ; ;BRANCH 
#STKQSRT,STKQOUT i gRESET THE POINTER 


;, eeeeeerererrereerreerererererrererererenteneeeeeeteneeereeeeene 


[#THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


s*CALL: 


6$: 


5$: 


7$: 


8$: 


4$: 
3$: 


RDLIN 
RETURN HERE 


R3,-(SP) 

-(SP) 
@STTYIN,R3 
al ttt 
4 


(SP)+,(R3) 
#177,(R3) 
5$ 


(SP) 

6% 

a'\,9% 

9% 

#-1, (SP) 
R3 
R3,#S$TTYIN 
4% 


9 
#15, (R3)¢ 
2% 


7; INPUT A STRING FROM THE TTY 
7; ADDRESS OF FIRST CHARACTER Witt BE ON THE STACK 
>; TERMINATOR WILL BE A BYTE OF Ait O0°S 


7 SAVE R3 
3;CLEAR THE RUBOUT KEY 
3:;GET ADDRESS 
;;BUFFER FULL? 
;;BR IF YES 
3;GO READ ONE CHARACTER FROM THE TTY 
47% CHARACTER 
Jt 1T A RUBOUT 
33 1F NO 
ae THIS THE FIRST RUBOUT? 
;:;BR IF NO 
7; TYPE A BACK SLASH 


7;SET THE RUBOUT KEY 

;;BACKUP BY ONE 

si: STACK EMPTY? 

7;BR IF YES 

::;SETUP TO TYPEOUT THE DELETED CHAR. 
3:G0 TYPE 

::GO READ ANOTHER CHAR. 

+ =RUBOUT KEY SET? 


oe 


R IF NO 
3; 7YPE & BACK SLASH 


eg THE RUBOUT KEY 
71S CHARACTER A CTRL Ui? 


“BR IF NO 
TYPE A CONTROL ‘'U"’ 
3:G0 START OVER 
::1S CHARACTER A ‘“*R*'? 
>:BRANCH IF NO 
3; CLEAR THE ae 
sr TYPE A A "'CR" a * 
si; TYPE THE INPUT TRING 
+360 Aye A ANOTHER CHACTER 
+e CLEAR THE BUFFER AND LOOP 
s;ECHO THE CHARACTER 


3: CHECK FOR RETURN 
;;LOOP IF NOT RETURN 


SEQ 0110 


a 
| 
! 
} 
| 
| 
| 
| 
| 
| 
| 
| 
I 





H 9 
CZRJAD RPOG/S/6 MECHANICAL AND ne TEST MACYT1 - ta 24-MAY-79 13:59 PAGE 115 


CZRJAD.P11 28-MAR-79 11:28 Ty INPUT ROUTI 
5662 022600 105063 177777 CLRB -1(R3) 7;CLEAR RETURN (THE 15) 
56635 022606 104401 001216 TIPE  SLF :; TYPE A LINE FEED 
5664 022610 005726 TST (SP)+ ;;CLEAN RUBOUT KEY FROM THE STACK 
5665 022612 012603 MOV (SP)+,R5 ;;RESTORE R3 
5666 022614 011646 MOV (SP) ,=(SP) ;;ADJUST THE STACK AND PUT ADDRESS OF THE 
5667 022616 016666 000004 000002 MOV 4(SP),2(SP) $3 FIRST ASCII] CHARACTER ON IT 
5668 022624 012766 022636 000004 MOV WSTTYIN,G(SP) 
5669 022632 000002 RT] > ;RETURN 
5670 022634 000 9$: -BYTE 0 so eee +1 ASCII] CHAR. TO TYPE 
5671 022635 000 -BYTE 0 +3 TER MINAT 
5672 022636 000024 STTYIN: .BLKB 20. RESERVE 20, BYTES FOR TTY INPUT 
5673 022662 041536 005015 OOO SCNTLC: .ASCIZ /*C/<15><12> :: CONTROL ' 


5674 022667 136 006525 000012 SCNTLU: .ASCIZ /*U/<15><12> 3; CONTROL my 
5675 022674 043536 005015 O00 SCNTILG: .ASCIZ /*G/<15><12> 3;CONTROL ‘'G"’ 
5676 022701 015 051412 051127 SMSWR: .ASCIZ <15><12>/SWR = / 


5678 022712 020040 042516 020127 SMNEW: .ASCIZ / NEW = / 
5679 022720 020075 000 


seat 022724 EVEN 

re -SBTTL SCOPE HANDLER ROUTINE 

5684 sereereerrerrrererrrerrererenererereererraeraneeneeeaAeaseneaeeee 

5685 STHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
5686 :*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
5687 > #AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

5688 s*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

5689 s*Swi4=1 LOOP ON TEST 

5690 >*SwWwil=1 INHIBIT ITERATIONS 

5691 3*Sw09-1 LOOP ON ERROR 

5692 3 *CALL 

5693 if SCOPE 3; SCOPE=101 

5694 

5695 022724 $SCOPE: 

5696 022724 104407 CKSWR 3;TEST FOR CHANGE IN SOFT=SWR 

5697 022726 032777 040000 156204 1$: BIT #B1114,aSWR ; LOOP ON PRESENT TEST? 

5698 022734 001101 BNE SOVER sYES IF Swi4=1 

5099 sMAAAASTART OF CODE FOR THE XOR TESTERMAMM 

5700 022736 000416 SXTSTR: BR 6$ 33:1f RUNNING ON THE ‘‘XOR’’ TESTER CHANGE 
5701 >: THIS INSTRUCTION TO A “‘NOP’’ (NOP=240) 
5702 022740 013746 000004 MOV QMERRVEC,-(SP) ;;SAVE THE CONTENTS OF THE ERROR VECTOR 
5703 022744 012737 022764 000004 MOV #5$ Q#ERRVEC 3:SET FOR TIMEOUT 

5704 022752 005737 177060 TST a#177060 23 TIME OUT ON XOR? 

5705 022756 012637 000004 MOV (SP)+ ,a#ERRVEC sRESTORE THE ERROR VECTOR 

5706 022762 000453 BR $SVLAD 2:60 TO THE NEXT TEST 

5707 022764 022626 5$: CMP (SP)+,(SP)¢ s;:CLEAR THE STACK AFTER A TIME QUT 
5708 022766 012637 000004 MOV (SP)+ amERRVEC + sRESTORE THE ERROR VECTOR 

5709 922772 000413 BR 7$ LOOP ON THE PRESENT TEST 

5710 022774 6$:; @#MNHEND OF cone FOR THE XOR iESTERSAENS 

5711 022774 105737 001103 2$: STB SERFLG + HAS AN ERROR OCCURRED? 

5712 023000 001421 BEQ s ;BR 1F NO 

5713 023002 123737 001115 001103 CMPB SERMAX,SERFLG > MAX, ERRORS FOR THIS TEST OCCURRED? 
5714 023010 101015 BH] 3;BR 1F NO 

5715 023012 032777 001000 156120 BIT #B1109,aSwWR ;;LOOP ON ERROR? 

5716 023020 001404 BEQ 4% s3 1f NO 

5717 023022 013737 001110 001106 7$: MOV SLPERR,SLPADR :;SET LOOP ADDRESS 10 LAST SCOPE 
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CZRJAD.P11 





023154 


023156 


025212 


28-MAR-79 11 


000001 


016646 
000002 


:28 

001103 
001204 
004000 
001100 


001104 
001204 


000001 


001106 


000022 


000022 


156066 


001104 


001104 
001204 


SCOPE HANDLER ROUTINE 


BR SOVER 
4%: CLRB SERFL 3:ZERO THE ERROR FLAG 
CLR STIMES 7:CLEAR THE NUMBER OF ITERATIONS TO MAKE 
BR is s ESCAPE TO THE NEXT TEST 
3$: BIT #B1711,aSwe >; INHIBIT ITERATIONS? 
BNE 1$ 7:;BR IF YES 
TST $PASS — FIRST PASS OF PROGRAM 
BEQ 1$ : INHIBIT ITERATIONS 
INC SICNT INCREMENT ITERATION COUNT 
CMP STIMES,SICNT > CHECK THE NUMBER OF ITERATIONS MADE 
BGE SOVER ‘BR IF MORE ITERATION REQUIRED 
1$: MOV #1,S1CNT sREINITIALIZE THE Ls pend ag A COUNTER 


MOV SMXCNT,STIMES ;;SET NUMBER OF ITERATIONS TO DO 
SSVLAD: INCA STSTNM ;;COUNT TEST NUMBERS 

MOV (SP) ,SLPADR 7:SAVE SCOPE LOOP ADDRESS 

MOV (SP) ,SLPERR ;;SAVE ERROR LOOP ADDRESS 

CLR SESCAPE 

MOVB #1, SERMAX 
SOVER: MOV STSTNM,QDISPLAY ::DISPLAY TEST NUMBER 


MOV SLPADR, (SP) ;FUDGE RETURN ADDRESS 
RTl SIPINES PS 
SMXCNT: 1 7;MAX. NUMBER OF ITERATIONS 


-SBTTL SAVE AND RESTORE RO-R5 ROUTINES 


s,eeeeertererererenererereerererseeeanerasansaraeraasenenasesarere 


;*SAVE RO-R5 


>*CALL: 

<o SAVREG 

; UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 

satepountetgs 

ie +2---(4+18) 

pt 4h—--R§ 

p® 46---RG 

se +¢B---R3 

3#+10---R2 

3#412---R1 

:#414---R0 

SSAVREG: 
MOV RO,-(SP) >;PUSH RO ON STACK 
MOV R1,-(SP) 3:PUSH R1 ON STACK 
MOV R2,-(SP) 3;PUSH R2 ON STACK 
MOV R3,-(SP) :;PUSH R3 ON STACK 
MOV R4,-(SP) 3;PUSH R4& ON STACK 
MOV R5,-(SP) >:PUSH RS ON STACK 
MOV 22(SP) ,-(SP) :;SAVE PS OF MAIN FLOW 
MOV 22(SP),-(SP) >:SAVE PC OF MAIN FLOW 
MOV 22(SP),-(SP) 3; SAVE PS OF CALL 
MOV 22(SP),-(SP) 7: SAVE PC OF CALL 


7 *RESTORE RO-R5 


CALL* 
:° RESREG 


eg THE ESCAPE FROM ERROR ADDRESS 
;ONLY ALLOW ONE(1) ERROR ON NEXT TEST 


SEQ O112 


j 
— 







































CZRJAD.P11 
5774 023214 


5784 
5785 023250 


5795 023252 


5808 025504 


5817 023306 


5822 023520 
5824 025322 
5826 023324 


025332 





000002 


010046 
016600 
005740 
111000 
006300 
016000 
000200 


011646 
016666 
000002 


025274 


021226 
022040 
021750 


023156 


000022 
000022 
000022 
000022 


000002 


023306 


000004 000002 
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SAVE AND RESTORE RO-R5 ROUTINES SEQ 0115 


SRESREG: 
MOV (SP)+,22(SP) ;;RESTORE PC OF CALL 
MOV (SP)+,22(SP) + RESTORE PS OF CALL 


MOV (SP)+,22(SP) sRESTORE PC OF MAIN FLOW 
MOV (SP)+#,22(SP) TPRESTORE PS od MAIN FLOW 
MOV" (SP)4#,R5 ;;POP STACK INTO RS 
MOV (SP)+,R4 3;POP STACK INTO R4 
MOV (SP)+.R3 3;POP STACK INTO R3 
MOV (SP)+,R2 3;POP STACK INTO R2 
MOV (SP)+,R1 ;;POP STACK INTO RI 
at} (SP)+,RO ;;POP STACK INTO RO 


-SBTTL TRAP DECODER 


ppeeeeeeerrerererererrereererereneereteeeAeeeeeeeeeeeeeTeerere 
s*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
7*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
7*GO0 TO THAT ROUTINE. 


STRAP: MOV RO,-(SP) 7;SAVE RO 
MOV 2(SP),RO 3;GET TRAP ADDRESS 
TST -(RO) ;;BACKUP BY 2 
MOVB (RO) ,RO 33GET RIGHT BYTE OF TRAP 
ASL RO ;POSITION FOR INDEXING 
MOV STRPAD(RO),RO 3; INDEX TO TABLE 
RTS RO 3:G0 TO ROUTINE 


3;THIS 1S USE TO HANDLE THE “'GETPRI‘* MACRO 


$STRAP2: MOV (SP) ,-(SP) 7:MOVE THE PC DOWN 
MOV 4(SP),2(SP) 7:MOVE THE PSW DOWN 
RT] ; RESTORE THE PSW 


-SBTTL TRAP TABLE 


7*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
7*BY THE “‘TRAP’’ INSTRUCTION. 


: ROUTINE 
$TRPAD: .WORD $TRAP2 
$TYPE  :: CALL=TYPE TRAP+1(104401) TTY TYPEQUT ROUTINE 


$TYPOC ;;CALL=TYPOC TRAP#2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
$TYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
$TYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
STYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 


SGTSWR ;;CALL=GTSWR TRAP+6(104406) GET SOFT-SWR SETTING 


SCKSWR ;;CALL=CKSWR TRAP*+7(104407) TEST FOR CHANGE IN SOF T=SWR 
SRDCHR ;;CALL=ROCHR TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
SRDOLIN ;;CALL=RDLIN TRAP#11(104411) TTY TYPEIN STRING ROUTINE 
SSAVREG ;;CALL=SAVREG  TRAP*12(104412) SAVE RO-R5 ROUTINE 








i SSS SSS hss SSS sls 


—— 
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ret 023334 023214 SRESREG ;;CALL=RESREG TRAP*+13(104413) RESTORE RO-RS ROUTINE 
at -SBTTL SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 

5834 peeeerrrerreererrerrererecereeeeterereereeeeeereeeteneteretertes 
5835 SSTHIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 
5836 s*UNSIGNED DECIMAL ASCIZ NUMBER. 

5837 *CALL 

5838 a MOV NUMBER ,-(SP) ome BINARY NUMBER ON THE STACK 
5839 Pal JSR PC ,a#$SB2D 33 CAL 

ot :* RETURN : TADDRESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK 
5842 

5843 023336 016637 000002 023366 $SB2D: MOV 2(SP),1$% 3 7SAVE BINARY NUMBER 

5844 023344 012746 023366 MOV #1$,-(SP) 3;SET POINTER 

5845 023350 004737 023372 JSR PC ,a#$DB20 3;CALL DOUBLE LENGTH CONVERT 

5846 023354 062716 000005 ADD #5, (SP) 3 ONLY ALLOW FIVE CHARACTERS 

5847 023360 012666 000002 MOV (SP)+, 2(SP) :;PICKUP POINTER 

5848 023364 000207 RTS PC ss RN 

geen 023366 000000 900000 1$: -WORD 0,0 

44 -SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCI] CONVERT ROUTINE 
5853 peeeeecereercerrerrereeeererreereeeeeerteneeeereeReeeeeeeReeTeee 
5854 7*THIS ROUTINE WILL CONVERT A 32-B1T BINARY NUMBER TO AN UNSIGNED 
5855 >*DECIMAL (ASCI1) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 
5856 ;*POSITIVE. 

5857 7 *CALL 

5858 ;* MOV #PNTR,-(SP) s:POINTER TO LOW WORD OF BINARY NUMBER 
5859 3° JSR PC ,a#$DB2D 

5860 7° RETURN 3: THE FIRST ADDRESS OF ASCIZ 

5861 3:18 ON THE STACK 

5862 

5863 

5864 023372 104412 $DB2D: SAVREG 3:SAVE REGISTERS 

5865 023374 016602 000002 MOV 2(SP),R2 3;PICKUP THE DATA POINTER 

5866 023400 012700 023552 MOV #SDECVL.RO ::GET ADDRESS OF ‘‘SDECVL** STRING 
5867 023404 010066 000002 MOV RO,2(SP) 3:PUT ADDRESS OF ASCIZ STRING ON STACK 
5868 023410 012201 MOV (R2)+,R1 7:PICKUP THE BINARY NUMBER 

5869 023412 012202 MOV (R2)+,R2 

5870 023414 012737 000012 023470 MOV #10.,4$% +3. UP TO DO 10 CONVERSIONS 
5871 023422 012704 023502 MOV #STNPWR, RG sADDRESS OF TEN POWER 

5872 023426 012705 023504 MOV #STNPWRS2, R5 

5873 023432 005003 1$: CLR ie :: CLEAR PARTIAL 

5874 23434 161401 23: SUB (R4),R1 3; SUBTRACT TEN POWER 

5875 023436 005602 $BC Pa 

5876 023440 161502 SUB (R5),R2 

5877 023442 002402 BLT 3$ 7:BR IF TEN POWER TO LARGE 

5878 023444 0052035 INC R3 >;ADD 1 TO PARTIAL 

5879 023446 000772 BR 23 3; LOOP 

5880 023450 062401 3$: ADD (RG)+,R1 s RESTORE SUBTRACTED VALUE 

5881 023452 005502 ADC R2 

$882 023454 062402 ADD (RG)*,R2 

5883 023456 022525 CMP (R5)4+,(R5)¢ s:MOVE TO NEXT TEN POWER 

5884 023460 052703 000060 BIS #'0,R3. >: CHANGE PARTIAL TO ASCII 

5885 023464 110320 MOvB R3,(RO)¢ 37; SAvE 17 





SEQ 0114 


ce 
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023552 


023566 


28-MAR-79 1 


000014 


010046 


012616 
000207 


000004 


000060 


023616 


DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


DEC (PC)+ 3; DONE? 
4%: -wORD O 

BNE 1$ 7 7BR IF + # 

CLRB (RO)* 23 TERMINA 

RESREG RESTORE REGISTERS 

RTS PC >: RETURN 
STNPWR: 145000 3:1.0€09 

35632 

160400 3:1.0€08 

2765 

113200 3:1.0€07 

230 

| oo 3:1.0€06 

‘eee: 3:1.0€05 

‘es 371.0604 

a. 331.0€03 

. 231.0802 

12 3:1.0€01 

0 

; 7:1.0€00 
SDECVL: .BLKB 12. s RESERVE STORAGE FOR ASCIZ STRING 


-SBTTL TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 


PLeeweeeerrereerereeeerererererereeereeeeeteeteneeteneneteneeeeee 
:*THIS ROUTINE IS USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 
7*LEADING NUMBERS. 


7 *CALL 
Hd MOV WNUMADR,-(SP) ;;FIRST ADDRESS OF ASCIZ STRING 
se JSR PC ,a#S$SUPRS 
$SSUPRS: MOV RO,-(SP) 7;SAVE RO 
MOV 4 (SP) ,RO 7:PICKUP THE POINTER 
1$: TS1B (RO) : 3 TERMINATEOR? 
BEQ 2$ :BR IF YES 
CMPB #°0,(RO)+ Zi1S THIS AN ASCII “‘0"' ? 
BEQ 1$ ::BR IF YES 
2$: DEC RO ;;BACKUP By ‘1"' 
MOV RO, 3% 23 SAVE FOR TYPING 
TYPE TYPE 
3$: -WORD 0 SIASCIZ POINTER GOES HERE 
MOV (SP)+,RO 2 RESTOR E RO 
MOV (SP)+, (SP) RESTORE THE STACK 
RTS PC > PRETURN 


-SBTTL RANDOM NUMBER GENERATOR ROUTINE 


TPP P PRR RRR RSBRERSESERRRRRRSRRRRRRRRR RARER RRR RRR RRR RRR RRR RRR RRR RRR SS SS 


eTHIS ROUTINE 1S A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR 


SEQ 0115 


LL = es tw ete =a at al 
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023726 
023724 
177771 


023726 


023724 
001057 


047401 
023726 
023724 
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RANDOM NUMBER GENERATOR ROUTINE 
WITH A RANGE OF 0 TO 2(+33)-1. 


*CALL: 
JSR 
RETURN 


SHINUM: .WORD 
SLONUM: .WORD 


-SBTTL 


PC, SRAND 7:;CALL THE ROUTINE 

7 ;RETURN HERE THE RANDOM 

7 ;NUMBER WILL BE IN 

3; SHINUM, SLONUM 
RO,-(SP) 77:PUSH RO ON STACK 
R1,-(SP) 3;PUSH R1 ON STACK 
R2,-(SP) 3;PUSH R2 ON STACK 
SLONUM,RO 3;SET RO WITH LOW 
SHINUM,R1 3:;SET R1 WITH HIGH 
#-7,R2 3:SET SHIFT COUNT 
RO 7; SHIFT RO LEFT AND 
Rt 7 ROTATE CARRY INTO R1 AND 
R2 7;CHECK FOR DONE 
1% ;;CONTINUE SHIFT LOOP 
SLONUM ,RO :;ADD NUMBER TO MAKE X 129 
R1 > ;PROPOGATE CARRY 
SHINUM,R1 :;ADD NUMBER TO MAKE X 129 
#1057,R0 7;ADD LOW CONSTANT 
R1 > PROPOGATE CARRY 
#47401,R1 3:ADD HIGH CONSTANT 
RO,SLONUM 7:SAVE RO 
R1,SHINUM 7: SAVE R1 
(SP)+,R2 ::POP STACK INTO R2 
(SP)+,R1 7:POP STACK INTO R1 
(SP)+,RO 7;POP STACK INTO RO 
PC 7 RETURN 
176543 
123456 


INTEGER DIVIDE ROUTINE 


spe eeeeeeererraereeererereerereteereneeeneeeaReaReaRteeeeeeeeeAeS 


z*THIS ROUTINE WILL DIVIDE A 32-B1T TWO"S COMPLEMENT INTEGER 


:*DIVIDEND BY 
:*A 16-B1T TWO'S COMPLEMENT INTEGER QUOTIENT AND A 16-BIT REMAINDER. 
;*DIVISION WILL BE PERFORMED SO THAT THE REMAINDER IS OF THE 

;*SAVE SIGN AS THE DIVIDEND. 


ee ernreerneeeeree#kstnreee 
< 
‘7 
_ 


*CALL: 


A 16-BI1T TWO'S COMPLEMENT INTEGER DIVISOR GIVING 


LOW DIVIDEND,-(SP) ;;THE HIGH DIVIDEND MUST BE < 1/2 
HIGH DIVIDEND,-(SP); AS LARGE AS THE DIVISOR 
DIVISOR,-(SP) 


PC, $D1V 
;;QUOTIENT & REMAINDER ARE ON THE STACK 
IMPLIES NO ERROR 
IMPLIES ERROR OCCURRED 
“c''=0 DIVIDE OVERFLOW OCCURRED 
“c''=1 ATTEMPTED TO DIVIDE By ZERO 


NO ERROR 


REMAINDER 


OVERFLOW 


ALL ZEROS 


DIVIDE BY ZERO 


ALL ONES 


SEQ 0116 
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012601 


000017 


000021 
000024 
000022 


060003 


000020 


000003 
177777 


000002 


000002 


000001 


000020 
000016 


000014 


000014 


INTEGER DIVIDE ROUTINE 


SDlv: 


1$: 


2$: 


3$: 
4$: 


5$: 


6$: 


7$: 
8$: 


9$: 


10$: 


#2 


QUOTIENT 


24(SP),R1 
nate RO 


350) 

Rt 

RO 

20(SP) ,R2 
2% 

3$ 
#3,14(SP) 
#-1,R0 

7$ 

2(SP) 


R 
R1,20(SP) 
RO,16(SP) 
(SP)4,R3 
(SP)+,R2 
(SP)+,R1 
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ALL ZEROS ALL ONES 


;;PUSH OLD PSw AND PC ON STACK 
+2 STRIP AWAY os CODES 


3;PUSH R2 ON STACK 

7:PUSH R3 ON STACK 

7;SAVE A PLACE FOR SIGNS 
7;SETUP THE ITERATION COUNTER 
7;PICKUP THE DIVIDEND 


7; CHECK THE SIGN 

3;KEEP TRACK OF THE SIGN 
77AND NEGATE THE ORIGINAL 
3; :NUMBER 


::PICKUP THE DIVISOR 
CHECK THE SIGN 
::DIVISOR OF 01S A NO-NO 


37SE 

=e TO ALL ONES 
z7Ex 

s:KEEP TRACK OF DIVISORS SIGN 
se ene THE ORIGINAL NUMBER 


C 
SESTART FORMING QUOTIENT 

; POSITION MSB'S 

;; COPY 

::COMPARE DIVIDEND & DIVISOR 

::BR IF DIVIDEND > DIVISOR 

: REMAINDER AFTER THIS LOOP 
QUOTIENT BIT ENTERS HERE 

: DONE ? 

::BR IF NO 

: OVERFLOW? 

::BR IF NO 

Z:SET "'V'" IN RETURN STATUS WORD 
:SET REMAINDER TO ALL ZEROS 

::COPY REMAINDER INTO QUOTIENT 
CLEAR COUNTER FROM STACK 
;;REMAINDER SIGN CORRECTION NEEDE? 


a3 IF NO 

> :NEGATE REMAINDER 

7: CLEAR S1GN 

:;BUT DON'T FORGET QUOTIENT 
ben gel gen SIGN CORRECTION NEEDED? 
>;NEGATE QUOTIENT 

3;RETURN QUOTIENT AND 

> REMAINDER TO USER 

3;POP STACK INTO R35 

3;POP STACK INTO R2 

:;POP STACK INTO RI 


SEQ is 
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6054 024140 
6055 024142 
6056 024146 


6067 024150 
6068 


6074 024202 
6075 024210 


6093 024212 


6109 024302 
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012600 
012666 
000002 


005037 


000207 


NNN AO ENN OH Oe oO 


000401 


000002 


001230 


001230 


000006 


000006 


024256 


024360 


024304 


024422 


000004 


000004 


001244 


001244 


INTEGER DIVIDE ROUTINE 


MOV (SP)+,RO ;POP STACK INTO RO 
rt} (SP)+,2(SP) £3 SETUP TO RETURN CONDITION CODES 


-SBTTL *** PROGRAM SUBROUTINES *** 


;SET ““LPTAVL’’ TO THE PROPER STATE. 
LPTAVL = 0 IF NO LINE PRINTER AVAILABLE 
; LPTAVL = 1 IF LINE PRINTER IS AVAILABLE 


7 CALL 
; JSR PC ,@aLP.AVL 
; RETURN 


LP.AVL: CLR OALPTAVL START WITH NO PRINTER AVAILABLE 
MOV #1$ ,A#ERRVEC ;SETUP THE TIMEOUT VECTOR 
‘CLR O@#ERRVEC+2 


TST aLPS 1S THERE A LINE PRINTER? 
as lege 7YES--SET AVAILABLE SWITCH 
1$: CMP (SP)+,(SP)+ ;NO--POP STACK 
2$: MOV WERRVEC+2,QMERRVEC ;RESTORE TIMEOUT VECTOR 
RTS PC ;RETURN 


:THIS ROUTINE WILL DETERMINE IF THERE IS A CLOCK ON THE SYSTEM 
sAND IF THERE IS IT WILL SETUP THE VECTOR AND START THE CLOCK 
7""CLKSTA’ WILL INDICATE THE CLOCK TYPE 

; O= NO CLOCK 

S41 KWwil-P 

t<1= KWIT-L 

sTHIS ROUTINE WILL ALSO SETUP "'TICKMS'’ (TIME 

sPER CLOCK TICK IN MILLISECONDS) AND ‘‘TICKUS"' 

: (TIME PER CLOCK TICK IN MICROSECONDS) AS 

PER Sw00. 

3Sw00=0 -- 60HZ 

7Sw00=1 -- 50HZ 


3; CALL 
3 JSR PC,a#ST.CLK 
3 RETURN 
ST.CLK: MOV R1,-(SP) ;SAVE R1 
MOV #WERRVEC+2,R1 :SAVE AND SETUP TIMEOUT VECTOR 
MOV (R1),-(SP) 
CLR (R1) ;LEVEL 0 
MOV -(R1),-(SP) 
MOV #1$,(R1) :GO0 TO 1$ ON TIMEOUT 
CLR CLKSTA 3SET CLOCK STATUS 10 NO CLOCK 
TST aPKCS ;1S THERE A KW11-P? 
MOV #1,CLKSTA YES=-SET STATUS TO KW11-P 
JSR PC,ST.PCLK sSTART THE KW11-P 
BR 3$ :60 TO EXIT 
1$: CMP (SP)+,(SP)+ ;CLEAN UP THE STACK 
MOV #2$,(R1) s1F TIMEOUT GO TO 2$ 
TST aks 31S THERE A KWll-L? 
MOV #-1,CLKSTA sYES=-- SET STATUS TO KWIl=L 
JSR PC,ST.LCLK START THE KWIleL 
BR 3$ EXIT 


SEQ 0118 


| 


ney 
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024412 
024420 


024422 
024422 
024430 
024432 
024440 
024446 
024454 


024456 
024462 
024466 


024470 


024540 
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000207 


013746 
004737 
000002 


oo—-COCOCOCOoOCOoOCOOo 
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000100 


000020 
047040 


000016 
040432 


000040 


024456 
000300 
000001 
000115 


000040 


024456 
000300 
000100 


001246 
041102 


176777 
000001 
001664 
002330 


003504 
003104 
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001220 


001246 
001250 


001246 
001250 


001220 


154776 
154772 
154770 
154760 


001220 


154746 
154742 
154736 


##* PROGRAM SUBROUTINES *** 


2$: CMP (SP)+,(SP)+ ;CLEAN UP THE STACK 
3$: MOV (SP)+,(R1)4 :RESTORE THE TIMEOUT VECTOR 
MOV (SP)+,(R1)+ 
MOV (SP)+,R1 sRESTORE RI 
BIT #SWO06,8#C.SWR ;50HZ OR 60HZ? 
BEQ 4$ ;BRANCH IF 60 


MOV #115, aPKCS "INT.EN.'',COUNT DOWN'', “MODE 1 (REPEAT) 
LINE FREQ’, AND ‘RUN’ 


MOV 20, aa TICKMS ;SETUP TIME PER 
1$: RTS PC 7 RETURN 
ST.LCLK: 


SEQ 0119 
sy #20000. .a#TICKUS ; sTICK FOR SOHZ 

4$: MOV #16, aaTICKMS ;SETUP TIME PER 
MOV #16666. ,a#TICKUS ;TICK FOR 60HZ 

5$: RTS PC ; RETURN 

ST.PCLK: 
BIT #SWO5,@#C.SWR ;ALLOW SOFTWARE TIMEOUTS? 
BNE 1$ ;NO--BRANCH 
MOV #SRVCLK ,APKV ;SETUP THE KW11-P VECTOR 
BIT #SWO5S,Q#C.SWR ;ALLOW SOFTWARE TIMEOUTS? 
BNE 1$ ;NO--BRANCH 


MOV #300 ,aPKv+2 
MOV #1,aPKB > COUNT ONE TICK 
MOV #SRVCLK ,ALKV ;SETUP THE KW11-L VECTOR 
MOV #300,aLKv+2 
MOV #100,aLKS START THE KW1l9i 

1$: RTS PC ; RETURN 


SRVCLK: MOV Q#TICKMS,-(SP) ;TIME PER TICK IN MILLISECONDS 
JSR PC, a#RPTMR ;COUNT THE ELASPED TIME 
RTI RETURN AFTER INTERRUPT 


:THIS ROUTINE SETS UP DEFAULT PARAMETER VALUES WHEN THE PROGRAM IS 
STARTED OR WHEN THE VALUE OF BITOO IN ‘C.SWR* IS CHANGED. 


3; CALL 

; JSR PC,LODFLT 

. RETURN 

LODFLT: 
MOV RO,-(SP) 3;PUSH RO ON STACK 
MOV R1,-(SP) 3;PUSH R1 ON STACK 
MOV R2,-(SP) 3:PUSH R2 ON STACK 
MOV R3,-(SP) 7:PUSH R3 ON STACK 


MOV #176777,TSTNMS :SELECT TESTS 0-10, 12-1 
MOV #1, TSTNMS#2 :SET SELECT BIT FOR TEST 50 


MOV #DFLT,RO ;DEFAULT PARAMETERS POINTER 
MOV #PRMO,R1 ; TABLE POINTER 
MOV R1,R2 ;STOP ADDRESS 

1$: MOV (RO)+,(R1)+ ;MOVE DEFAULT PARAMETERS INTO 
CMP RO,R2 ;RUN TIME TABLES ** DONE? 
BLO 1$ ;NO--BRANCH 
MOV #PAT8,RO ;PATO DEFAULTS TO PATTERN 8 


MOV #PATO,R1 


—E oO aaa — 
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024544 


024724 


024726 


024764 
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000751 
012603 


000207 


003544 
000001 
000025 
000025 
165000 
000023 
000023 
166000 
001536 
002000 
177776 


000013 


000002 


001630 
001630 


001102 


001536 
001504 


001254 


001220 


001630 
001632 
001352 


001630 
001632 
001352 
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2$: MoV (RO)+,(R1)4 

CMP RO, #PATO 

BLO 

BIT #B1T00,C.SWR  ;16 BIT MODE ? 

BNE 3$ BR IF 18 

MOV #21.,PRMLMT#22  :SET 'FS* LIMIT TO 21. 

MOV #21..PRMLMT#24 :SET "LS* LIMIT TO 21. 

MOV #-<256.222.>,TRCKWC ;WORD COUNT FOR A 16 BIT TRACK 

BR 4$ : CONTINUE 
38: MOV #19. ,PRMLMT#22  :SET 'FS* LIMIT TO 19. 

MOV #19..PRMLMT#24 :SET "LS* LIMIT TO 19. 

MOV #-<256.*20.>,TRCKWC ;WORD COUNT FOR COUNT FOR AN 18 BIT TRACK 
4$: MOV #PRMPT RI : ADDRESS OF PARAMETER POINTER TABLE 
5$: TST (R1) [END OF THE TABLE ? 

BEQ 8$ :BR IF END 

BIT WB1T10,a(R1)*  :"LS' SELECTED ? 

BEQ 5$ :BR IF NOT 

MOV =2(R1),R2 “PARAMETER TABLE ADDRESS 

MOV (R2),-(SP) :PARAMETER ALLOCATION BITS 

MOV #11..R3 [NUMBER OF PARAMETERS (MAXIMUM) BEFORE 'LS' 
6$: ASR (SP) [COUNT THE PARAMETER 

BCC 7$ “BR IF NOT USED 

ADD #2,R2 ‘INCREMENT THE PARAMETER TABLE ADDRESS 
7$: DEC 3 :COUNT THE PARAMETER 

BNE 6$ <BR IF NOT THERE YET 

TST (SP)4 ;CORRECT THE STACK POINTER 

CMP (R2),PRMLMT#22 :1S "LS" TOO LARGE FOR THE MODE SELECTED ? 

BLOS 5$ :BR IF NOT 

MOV PRMLMT+22,(R2) :RESET VALUE FOR MODE USED 
he BR 5$ : CONTINUE 

Mov (SP)+,R3 :sPOP STACK INTO R3 

MOV (SP)+.R2 ::POP STACK INTO R2 

MOV (SP)+._R1 ::POP STACK INTO R1 

MOV (SP)+.RO ::POP STACK INTO RO 

RTS PC RETURN 

:THIS ROUTINE FILLS THE PARAMETER TABLE THE CURRENT TEST. 
;CALL 
: Mov WTESTNUM. STSTNM :LOAD THE TEST NUMBER 
; JSR PC, LODPRM 
: RETURN 
LODPRM: 

Mov R1,-(SP) :sPUSH R1 ON STACK 

MOV R2,-(SP) ::PUSH R2 ON STACK 

MOV R3,-(SP) ::PUSH R3 ON STACK 

MOV R4.=(SP) ':PUSH R& ON STACK 

CLR RG =CLEAR R4 

MOVB =‘ $TSTNM,R4 :GET THE TEST NUMBER 

ASL R4 “SETUP TO ADDRESS WORDS 

MOV PRMPT(R4),R1 :GET THE TEST'S PARAMETER TABLE ADDRESS 

MOV #PRM,R2 :PARAMETER EXECUTION TABLE 

CLR R3 =R3 1S USED AS A COUNTER 

MOV CHKDRV,R4 “DRIVE'S ADDRESS 

MOV (R1)+#, (R2)4 PARAMETER SPECIFIER 


= 


a ee 
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CZRJAD.P11 28-MAR-79 11:2 #t* PROGRAM SUBROUTINES *ee SEQ 0121 
6222 024766 006237 001504 1$: ASR PRM Tuts PARAMETER USED IN THE TEST ? 
6223 024772 103002 BCC 23 :BR NOT 
6224 024774 012122 MOV (R1)4+,(R2)4 OAD. THE VALUE 
6225 024776 000401 BR %$ : CONT INUE 
6226 025000 005022 23: CLR (R2)+ sCLEAR THE UNUSED PARAMETER LOCATION 
6227 025002 005203 3$: INC R3 ;COUNT THE resetoen IN THE OUTPUT TABLE 
6228 025004 020327 000014 CMP R3,#12. 7 FINISHED 
6229 025010 001430 BEQ 6$ :BR IF YES 
6230 025012 020327 000003 CMP R3,83 ge THE CYLINDER ADDRESSES ? 

6231 025016 001363 BNE BR IF NOT 

6232 025020 132764 000004 034514 B1TB #BITOZ,DRVTYP(RG) ;RPO6 ? 

6233 025026 001016 BNE 5$ :BR IF 17 IS 

6234 025030 062703 000002 ADD #2,R3 :COUNT THE BYPASSED PARAMETERS (FC* & LC") 
6235 025034 006237 001504 ASR PRM SHIFT THE COUNTER 

6236 025040 103002 BCC 4$ “BR IF FC’ 1S NOT USED 

6237 025042 062701 000002 ADD #2,R1 sMOVE THE INPUT POINTER 

6238 025046 006237 001504 4$: ASR PRM :COUNT THE PARAMETER 

6239 025052 103345 BCC 1$ BR IF LC' NOT USED 

6240 025054 062701 000002 ADD #2,R1 ;MOVE THE INPUT PINTER 

6241 025060 000742 BR 1$ KEEP GOING 

6242 025062 000741 BR 1$ KEEP GOING 

6243 025064 162702 000004 5$: SUB #4 ,R2 ;BACKUP THE OUTPUT POINTER 

6244 025070 000736 BR 1$ KEEP GOING 

6245 025072 6$: 

6246 025072 012604 MOV (SP)+,R4 :;POP STACK INTO RG 

6247 025074 012603 Mov (SP)+,R3 ::POP STACK INTO R3 

6248 025076 012602 MOV (SP)+,R2 :;POP STACK INTO R2 

6249 025100 012601 MOV (SP)+,R1 :;POP STACK INTO R1 

ocet 025102 000207 RTS PC sRETURN 

6252 :THIS ROUTINE LOADS A READ HEADER AND DATA COMMAND OR A SEEK COMMAND 
6253 : INTO DPB.B+2 AND DPB.C+2, DEPENDING ON THE STATE OF ‘CONTROL SWITCH" 
6254 :B1T07. 

6255 7 CALL 

6256 : JSR PC, a#LDCMD 

344 : RETURN 

6 

6259 025104 032737 000200 0601220 LDCMD: BIT #SWO7,a4C.SWR 3D0 EXPLICIT SEEKS? 

6260 025112 001007 BNE 1$ > YES--BRANCH 

6261 025114 012737 000173 004126 MOV #READHD ,a#DPB.B+2 ;NO--SET UP FOR READ HEADER AND 
6262 025122 012737 000173 004146 MOV #READHD ,a#DPB.C+2 ;DATA COMMAND 

6263 025130 000406 BR 2$ 

6264 025132 012737 000105 004126 1$: MOV #SEEK,@#DPB.B+2 ;SETUP FOR SEEK COMMAND H 
6265 025140 012737 000105 004146 MOV #SEEK ,a#DPB.C+2 

ores 025146 000207 2$: RTS PC 

6 

6268 sTHIS ROUTINE WILL CALL THE RPO4/5/6 DRIVER AND THEN WAIT ON THE FUNCTION 
6269 >TO COMPLETE. IF AN ERROR OCCURS IT 1S REPORTED. 

6270 CALL 

6271 3 FILL "‘OPB'' WITH COMMAND INFORMATION 

6272 : JSR RO,@#CALL.A 

asta : RETURN 

6274 

6275 025150 005037 001206 CALL.A: CLR aeSESCAPE :NO ESCAPE ADDRESS 

6276 025154 0604037 035450 JSR RO, a#RP04 CALL RPO4 DRIVER 

6277 025160 004104 DPB.A 
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000200 


005037 
004037 


001004 
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004122 


025250 


026364 


004122 
026324 


001206 
035450 


004142 


025400 
004136 
004135 
004134 
004142 
026364 


004220 
177677 
004142 
026324 
004126 
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001206 


001272 


001206 
001270 
001274 
001272 


004220 


000173 


s#* PROGRAM SUBROUTINES *** 


BR CALL.A 
1$: TST a#DPB.A+16 ; DONE? 
BEQ 1$ ;NO--LOOP 
BPL 3$ + BRANCH IF NO ER 


ROR 
MOV #2%, SESCAPE ;;ESCAPE TO 2$ ON ERROR 
MOV a#DPB.A+12,a#CYL.OS ;CYLINDER 
MOVB @#D0PB.A+11,Q#TRK.DS ; TRACK 
MOVB a#DPB.A+10,a#SEC.DS ;SECTOR 
MOV #DPB.A+16,-(SP) ;STATUS/ERROR INDICATOR ADDRESS 
JSR PC ,a#ERINDX ;FORM DISPATCH INDEX 
ADD teeth ;REPORT PROPER ERROR 


ERROR : 
ERROR 42 PARITY ERROR 
ERROR 43 ; UNSAFE ERROR 
ERROR 44 ;NON-1/0 ERROR 
ERROR 45 :1/0 ERROR 
2$: MOV DPB.A+16,-(SP) ;STATUS WORD 
JSR PC,LOP.CK ;SEE IF LOOP, ABORT, OR CONTINUE 


3$: RTS RO ; RETURN 


THIS ROUTINE IS THE SAME AS ‘’CALL.A‘’ EXCEPT FOR THE DPB USED AND IF 
; THE COMMAND IS A READ HEADER AND DATA THE HEADER (CYLINDER, TRACK, 
AND SECTOR) READ 1S CHECKED FOR VALIDITY. 


CALL 

; FILL DPB 

: JSR RO,a#CALL.B 

; RETURN 

CALL.B: CLR O#SESCAPE sNO ESCAPE ADDRESS 
JSR RO, a#RPO4 ;CALL RPO4 DRIVER 
DPB.B 
BR CALL.B 

1$: TST DPB.B+16 ; DONE? 
BEQ 1$ 3NO--BRANCH 
BPL 4% ;BRANCH IF NO ERROR 
MOV #3$,SESCAPE : sESCAPE TO 3$ ON ERROR 
MOV aNDPB. B+12,a#CYL.DS ;CYLINDER 
MOVB O4#DPB.B+11,a#TRK.DS ; TRACK 
MOVB a#DPB.B+10.as#SEC.DS > SECTOR 
MOV #DPB.B+16,-(SP) ;STATUS/ERROR INDICATOR ADDRESS 
JSR PC ,a#ERINDX sFORM DISPATCH INDEX 
ADD (SP)+,PC ;REPORT PROPER ERROR 
ERROR 4] : 
ERROR 42 ;PARITY ERROR 
ERROR 43 ; UNSAFE ERROR 
ERROR 44 ;NON-1/0 ERROR 
TST RP.REG+RPER1 sDRIVE ERROR ? 
BEQ 2$ ;BR IF NOT 
BIT #*C100,RP.REG+RPER1 ;SEE IF ONLY "HCE" SET 
BEQ 4$ ;BR IF IT IS 

2$: ERROR 45 31/0 ERROR 

3$: MOV DPB.B+16,-(SP) ;STATUS WORD 
JSR PC,LOP.CK ;SEE 1F LOOP, ABORT, OR CONTINUE 
BR 5$ ;CHECK FOR STALL 

4$: CMPB a#DPB.B+2, #RE ADHD ;DOING IMPLIED SEEKS? 
BNE 5$ :NO--BRANCH 


SEQ 0122 


~ ony 
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004037 


000200 


005037 
004037 


000200 


026644 


040000 
026502 


001206 
035450 


004162 


025570 


026364 


004220 
177677 
esis 
004146 
026644 


040000 
026502 
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001220 


001206 
001270 
001274 
001272 


004220 


000173 


001220 


JSR RO,@aVERIFY 7YES=-GO CHECK THE DATA 
DPB.B+10 
BR 6$ ERROR DURING VERIFY 
5$: BIT WSW14,aeC.SWR STALL? 
BEQ 6$ ;NO--BRANCH 
JSR RO,@#STALL YES=--CALL STALL ROUTINE 
«WORD STALLI :STALL TIME POINTER 
6$: RTS RO ; RETURN 
bee ROUTINE 1S THE SAME AS ‘’CALL.B’’ EXCEPT FOR THE DPB USED. 
> CALL 
: FILL DPB 
: JSR RO,@#CALL.C 
: RETURN 
CALL.C: CLR O#SESCAPE ;NO ESCAPE ADDRESS 
JSR RO, a#RPO4 ;CALL RPO4 DRIVER 
DPB.C 
BR CALL.C 
1$: TST a#DPB.C+16 ; DONE? 
BEQ 1$ ;NO--LOOP 
BPL 4% ;YES--BRANCH IF NO ERROR 
MOV #3% ,SESCAPE 7;ESCAPE TO 3% ON ERROR 
MOV Q#0PB.C+12,a#CYL.DS ;CYLINDER 
MOVB @#DPB.C+11,a#TRK.DS ; TRACK 
MOVB @#DPB.C+10,aMSEC.DS ;SECTOR 
MOV #DPB.C+16,-(SP) ;STATUS/ERROR INDICATOR ADDRESS 
JSR PC ,a#ERINDX ;FORM DISPATCH INDEX 
ADD (SP)+,PC ;REPORT PROPER ERROR 
ERROR 41 ; 
ERROR 42 ;PARITY ERROR 
ERROR 43 ; UNSAFE ERROR 
ERROR 44 ;NON-1/0 ERROR 
TST RP.REG+RPERI ;DRIVE ERROR ? 
BEQ ;BR IF NOT 
BIT #*C100,RP.REG+RPER1 ;SEE IF ONLY ‘HCE" SET 
BEQ 4% ;BR IF IT IS 
2$: ERROR 45 :1/0 ERROR 
3$: MOV DPB.C+16,-(SP) :STATUS WORD 
oy an :SEE IF LOOP, ABORT, OR CONTINUE 
4$: CMPB a#DPB.C+2,#READHD ;DOING IMPLIED SEEK? 
BNE 5$ 0--EX 
JSR RO,@#VERIFY SYES=-CHECK THE DATA 
DPB.C+10 
BR 6 ERROR DURING VERIFY 
5$: BIT #SW14,0#C.SWR = ;STALL? 
BEQ 6% ;NC--BRANCH 
JSR RO,@#STALL SYES--CALL STALL ROUTINE 
«WORD STALLI sSTALL TIME POINTER 
6$: RTS RO 


THIS ROUTINE IS THE SAME AS “‘CALL.A'’ EXCEPT FOR THE DPB USED AND 
7O0N AN ERROR LOCATION "‘ERR.CT" ts EXAMINED. IF ERR.CT 1S EQUAL 10 
SERFLG EXIT 1S TO THE NEXT TEST 


SEQ 0125 
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CZRJAD.P11 28-MAR-79 11:28 s** PROGRAM SUBROUTINES *** SEQ 0124 
6390 CALL 
6391 ; FILL DPB 
6392 3 JSR RO, @#DRVCAL 
eat ; RETURN 
6395 025642 005037 001206 DRVCAL: CLR a#SESCAPE NO ESCAPE ADDRESS 
6396 025646 005037 001334 CLR aawCEFLG sCLEAR WRITE CHECK ERROR FLAG 
6397 025652 004037 035450 JSR RO, a#RP04 sCALL RPOG DRIVER 
6398 025656 004164 DTADPB 
6399 025660 000770 BR DRVCAL 
6400 025662 005737 004202 DRVCL1: TST aaDTADPB+16 ; DONE 
6401 025666 001775 BEQ DRVCL1 7NO--LOOP 
6402 025670 100402 BMI 1$ ;BR IF ERRORS 
6403 025672 000137 026304 JMP 108% sNO ERRORS 
6404 025676 1$: 
6405 025676 012737 025752 001206 MOV #2%,SESCAPE ::ESCAPE TO 2$ ON ERROR 
6406 025704 013737 004176 001270 MOV Q#DTADPB+12,a#CYL.DS ; CYLINDER 
6407 025712 113737 004175 001274 MOVB Q#DTADPB+11,a#TRK.DS ; TRACK 
6408 025720 113737 004174 001272 MOvVB @4#DTADPB+10,a#SEC.DS ; SECTOR 
6409 025726 012746 004202 MOV #DTADPB+16,-(SP) ;STATUS/ERROR INDICATOR ADDRESS 
6410 025732 004737 026364 JSR PC ,a#ERINDX FORM DISPATCH INDEX 
6411 025736 062607 ADD (SP)+,PC REPORT PROPER ERROR 
6412 025740 104041 ERROR 41 : 
6413 025742 104042 ERROR 42 :PARITY ERROR 
6414 025744 104043 ERROR 43 UNSAFE ERROR 
6415 025746 104044 ERROR 44 :NON-1/0 ERROR 
6416 025750 104045 ERROR 45 :1/0 ERROR 
6417 025752 122737 000020 001102 2$: CMPB #20,a4STSTNM sTEST 20? 
6418 025760 001137 BNE 8$ ;NO--BRANCH 
6419 025762 013746 004202 MOV DTADPB+16,-(SP) ;STATUS WORD 
6420 025766 004737 026324 JSR PC,LOP.CK =SEE IF LOOP, ABORT, OR CONTINUE 
6421 025772 122737 000151 004166 CMPB #WRCKD, a#DTADPB+2 :DOING A WRITE CHECK? 
6422 026000 001133 BNE 12% NO--BRANCH 
6423 026002 032737 040000 004214 BIT #B11T14,a#RF. REG+10 : 71S ‘WCE'*=1? 
6424 026010 001527 BEQ 12$ : NO--BRANCH 
6425 026012 032777 000020 153120 BIT #SW04 ,aSWR : INHIBIT WRITES? 
6426 026020 001123 BNE 12% YES--BRANCH 
6427 026022 112737 000161 004166 MOVB #WRITE, avDTADPB+2 :SETUP FOR A WRITE 
6428 026030 005037 001206 CLR aaSESCAPE = NO ESCAPE ADDRESS 
6429 026034 004037 035450 JSR RO, a#RPO4 =DO THE WRITE 
6430 026040 004164 DTADPB 
6431 026042 000240 NOP 
6432 026044 005737 004202 3$: TST a#DTADPB+16 : DONE? 
6433 026050 001775 BEQ 3$ :NO--LOOP 
6434 026052 100026 BPL 4$ :YES--BRANCH IF NO ERROR 
6435 026054 012737 026260 001206 MOV #8%,SESCAPE ::ESCAPE TO 8% ON ERROR 
6436 026062 013737 004176 001270 MOV O#DTADPB+12,a#CYL.DS ; CYLINDER 
6437 026070 113737 004175 001274 MOVB A#DTADPB+11,a#TRK.DS ; TRACK 
6438 026076 113737 004174 001272 MOVB O#DTADPB+10,a#SEC.DS ;SECTOR 
6439 026104 012746 004202 MOV #DTADPB+16,-(SP) ;STATUS/ERROR INDICATOR ADDRESS 
6440 026110 004737 026364 JSR PC ,a#ERINDX FORM DISPATCH INDEX 
6441 026114 062607 ADD (SP)+,PC REPORT PROPER ERROR 
6442 026116 104041 ERROR 41 : 
6443 026120 104042 ERROR 42 :PARITY ERROR 
6444 026122 104043 ERROR 43 UNSAFE ERROR 


6445 026124 104044 ERROR 44 ;NON-1/0 ERROR 
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6496 026352 
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104045 


000200 


032777 


001402 


000137 
012616 
000207 


:28 


000151 
035450 


004202 


035450 


004202 


000001 


004202 
026364 


004202 
026324 
001364 


001252 
040000 


026502 


001000 
152550 


001206 
072006 


017502 
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004166 4$: 


5$: 


6$: 


001334 7$: 


001272 


8$: 
001103 128: 


9$: 
001220 10$: 


11$: 


as 
RO,a#RP 


4D TADPB+16 
5$ 

7$ 

RO, a#RP04 
@#DTADPB+ 16 
6$ 

10% 


#1 ,a#WCEFLG 
#8 ,SESCAPE 
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ERROR 


:1/0 
WWRCKD, D as TADPB+? ; COMMAND= WRITE CHECK DATA 


DO THE WRITE CHECK 


; DONE? 


;NO--LOOP 
7 YES--BRANCH IF ERROR 
3;D0 A 2ND WRITE CHECK 


; DONE ? 

;NO--LOOP 

7 YES--BRANCH IF NO ERROR 

SET THE WRITE CHECK ERROR FLAG 


;;ESCAPE TO 8$ ON ERROR 


O#DTADPB+12,a#CYL.DS ;CYLINDER 
O@#DTADPB+11,a#TRK.DS ; TRACK 
Q@#DTADPB+10,a#SEC.DS ;SECTOR 


#DTADPB+16,-(SP) 
PC ,a#ERINDX 
(SP)+,PC 


DTADPB+16,-(SP) 
PC, 


a#BYPASS,RO 
+ > retails 


1 
RO, a#STALL 
STALL2 
RO 


THIS SUBROUTINE CHECK FOR LOOP, 


sERRORS 41, 42, 


7 CALL 


152606 LOP.CK: 


1$: 
000002 


2$: 


MOV 
JSR 
RETURN 


43, 44, 45, AND 46 


DTA+16,-(SP) 
PC,LOP.CK 


+ rams 
coe 


;STATUS/ERROR INDICATOR ADDRESS 


;FORM DISPATCH INDEX 
;REPORT PROPER ERROR 


;PARITY ERROR 
UNSAFE ERROR 
;NON-1/0 ERROR 
FATAL WRITE CHECK 


:STATUS WORD 
IF LOOP, ABORT, OR CONTINUE 


LOP.CK : SEE 
HERR. €:m O#SERFLG ;G0 TO NEXT TEST? 


;NO=-BRANCH 


:YES--GET EXIT ADDRESS 
STALL? 

;NO--BRANCH 

7YES--CALL STALL ROUTINE 
sSTALL TIME POINTER 


ABORT, OR CONTINUE SWITCHES AFTER 


;STATUS WORD FROM DPB IN USE 


;LOOP ON ERROR 


;BR 1F NOT 


bed AT THE LOOP ADDRESS 
EAR ERROR ESCAPE FLAG 


SESCAPE 
SOU Neea Tes: ‘BITES BIT10°B1 102: BITO1,2(SP) ;CHECK ERROR TYPE 


$EOP 
(SP)+, (SP) 
PC 


IF DRIVE NOT OFFLINE, UNLOADED, OR 


BR 

PERSISTENT UNSAFE UR FATAL MASSBUS PARITY 
> TERMINATE DRIVE 

;ADJUST RETURN ADDRESS 


SEQ 0125 | 
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026364 


026500 


28-MAR-79 


010046 


000207 


000006 
001260 


000150 


000006 


177762 


#** PROGRAM SUBROUTINES *** 


THIS ROUTINE FORMS AN INDEX THAT WILL BE USED TO DISPATCH 
TO THE PROPER ERROR CALL. THE INDEX IS FORMED BY EXAMINING 
THE STATUS/ERROR INDICATOR OF THE APPLICABLE DPB. 


: INDEX STATUS/ERROR 
: 0 bbe BE a oe Heat 
: 2 BIT11!B1T10!B1T02 
: 4 BIT12!B1104 
: 6 B1105!B1103!<B1109 & COMMAND=NON-1 /0> 
Son 10 B1106!<BIT09 & COMMAND=1/0> 
> CALL 
; #DPB+16,-(SP)  ;ADDRESS OF STATUS/ERROR INDICATOR 
: JSR PC ,@#ERINDX FORM INDEX 
: RETURN ; INDEX 1S ON THE STACK 
ERINDX: MOV RO,-(SP) ;SAVE RO 
MOV R1,-(SP) SAVE R 
MOV 6(SP) ,RO GET STATUS/ERROR INDICATOR POINTER 
MOV (RO), AWSVSTAT :SAVE THE STATUS/ERROR INDICATOR 
CLR R1 START INDEX AT ZERO 
BIT (PC)+, (RO) ;FORM INDEX OF 0? 
. WORD B1T13°B1T08:! B1T01 
BNE 5$ ; YES--BRAN 
BIT (PC)+, (RO) ; FORM PARITY ERROR OR PORT REQUEST INDEX (2)? 
.WORD B1T11‘B1T10!B1T02 
BNE 4$ ; YES--BRANCH 
BIT (PC)+, (RO) FORM UNSAFE INDEX (4)? 
. WORD B1T14'B]112!B1 104 
BNE 3$ ; YES--BRANCH 
BIT (PC)+, (RO) FORM NON-1/0 ERROR INDEX (6)? 
-WORD BI1T05!B1T03 
BNE 2$ ; YES--BRANCH 
BIT (PC)+, (RO) :FORM 1/0 ERROR INDEX (10)? 
-WORD B1106 
BNE 1$ ; YES--BRANCH 
BIT (PC)+, (RO) SOFTWARE TIMEOUT? 
-WORD 8B1109 
BEQ 5$ ;NO--FORM INDEX OF 0 
CMPB #150,-16(RO) 7 YES--1/0? 
BGT 2$ :NO--BRANCH 
1$ INC R1 : INDEX=10---ERROR=45 OR 46 
2$ INC R1 ; INDEX=6---ERROR=44 
3$ INC R1 7 INDEX=4---ERROR=453 
4$ INC R1 3; INDEX=2---ERROR=42 
5$ ASL R1 ; INDEX=0---ERROR=41 


MOV R1,6(SP) RETURN INDEX TO USER 
MOV (SP)+,R1 sRESTORE R1 

MOV (SP)+,RO RESTORE RO 

RTS PC RETURN FROM CALL 


A ite IN MILLISECONDS FOR A SPECIFIC 
F C.SWR = 0 OR A RANDOM AMOUNT OF TIME 
i 


- leSTS 0 - 7, AND STALL2 


sTHIS ROUTINE WILL P 
sAMOUNT OF TIME IF B 
:1F BIT 13 OF C.SWR 
:STALL1 CONTAINS SP 
sCONTAINS THE TIME 
3; CALL 


nm 
OOo ww 


SEQ C126 
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026642 
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013046 
032737 


000200 


000207 


010146 


020000 
023626 
023726 
177700 
000001 
000144 


000000 


177776 


000101 


000004 
152536 
177776 


010000 
050202 


050204 
050202 


050205 
050204 
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001220 


000002 


177776 


152564 
152564 
152554 


050202 
000002 


001262 
001264 
001266 


*** PROGRAM SUBROUTINES *** 


; JSR RO ,@#STALL 
: TIME POINTER 


STALL: MOV a(RO)+,-(SP) 


BIT #SW13,aeC.SWR 
BEQ 1$ 
JSR PC ,a#SRAND 
MOV @#SLONUM, (SP) 
BIC #*C77,¢ 
1$: CLR -(SP) 
2$: SUB #1,2(SP) 
BLO 4% 
MOV #100.,(SP) 
3$: TST RO 
DEC 0(SP) 
BNE 3$ 
BR 2$ 
4$: CMP (SP)+,(SP)+ 
RTS RO 
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WHERE TO FIND THE STALL TIME 


ot hae STALL TIME 

SUSE A RANDOM TIME? 
3;NO--BRANCH 

: YES--F ORM RANDOM NUMBER 

sAND USE IT FOR THE STALL TIME 
:BUT NEVER > 64 MILLISECONDS 
;CLEAR TEMP. LOCATION 

sMORE STALL REQUIRED? 
3;NO--BRANCH 

;STALL FOR ABOUT 1 MILLISECOND 
;NOP TO KILL TIME 


; COUNT 
;LOOP IF MORE COUNTS NEEDED 
rity OFF THE STACK 


;ROUTINE TO PROVIDE A 2 MS STALL AFTER A SEEK OPERATION IN THE SEEK TIMING 


TESTS. THIS STALL 1S REQUIRED 


:IN THE RPOS. THIS STALL TIME IS NOT INCLUDED IN THE CALCULATED SEEK TIMES. 


TO COMPENSATE FOR THE ‘ACCESS READY DELAY 


7SAVE THE PRESENT PROCESSOR STATUS 
7SET THE PROCESSOR PRIORITY TO 5 
SAVE THE OLD CLOCK VECTOR ADDRESS 
;SETUP NEW VECTOR ADDRESS 
;LOAD THE CLOCK BUFFER 
START THE CLOCK 
WAIT FOR 2 MS 

> INCREMENT STACK FOR rz + 
sRESTORE OLD CLOCK VECTO 

RESTORE THE OLD PROCESSOR STATUS 
; RETURN 


;ROUTINE TO SOFTWARE COMPARE HEADER ON IMPLIED SEEKS 


CALL 

rs JSR PC,a#TWOMS 

: RETURN 

TWOMS: MOV a#Ps,- (SP) 
MOV #<5*32.>,aaPS 
MOV aPKV,-(SP) 
MOV #1$,aPKV 
MOV #200. ,aPKB 
MOV #101, aPKCS 
WAIT 

1$: ADD #4,SP 
MOV (SP)+,aPKV 
MOV (SP)+,a#PS 
RTS PC 

CA aa 

§ JSR RO, O#VERIFY 

: ADR POINTER 

; RETURN 


VERIFY: MOV R1,-(SP) 
MOV (RO)+,R1 


ADDRESS OF DPB+10 (SECTOR NUMBER) 


;SAVE R1 
;GET ADDRESS OF DPB+10 


BIC #FMT22,Q#BUFFER ;STRIP FORMAT BIT FROM CYLINDER NUMBER 
CMP O#BUFFER,2(R1) ;CYLINDER NUMBER OK? 
BNE 1$ :NO--BRANCH 
CMP Q#BUFFER+2,(R1) ;YES--HOW ABOUT TRACK/SECTOR? 
BEQ 3$ ;BRANCH IF GOOD 
1$: MOV AWBUFFER,@#CYL.RD ;SAVE THE EXPECTED AND THE 
MOVB Q#BUFFER+3,a#TRK.RD ;RECIEVED CYLINDER, TRACK, 
MOVB O#BUFFER+2,a#SEC.RD ; AND SECTOR 


SEQ 0127 





ee | 


a a a a i in a ee eee 
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012601 
000200 


005001 


000200 


001272 
0 
026744 
000107 
; 
001000 


152112 
000002 


177776 


035450 
004202 


027152 
004176 
004175 
004174 
004202 
026364 


000006 
000034 
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001206 


004106 


152150 


005612 
000010 


004166 


001206 


001272 


#** PROGRAM SUBROUTINES *** 


MOVB (R1)+*,a#SEC.DS 
MOVB (R1)+,a#TRK.DS 
MOV (R1) ,@#CYL.DS 
MOV #2%,SESCAPE 3;ESCAPE TO 2$ ON ERROR 


TST ~(RO) MAKE IT TEST PC+4 

ERROR 12 REPORT THE ERROR 
2$: MOV WRECAL,DPB.A+2 ;LOAD RECALIBRATE ORDER CODE 

JSR RO,@#CALL.A :GO EXECUTE THE COMMAND 

CLR SESCAPE CLEAR ERROR she FLAG 

BIT #SW9,aSWR [LOOP ON ERROR ? 

BEQ 4% ;BR IF NOT 

JMP ASLPERR ;RETURN TO ERROR LOOP ADDRESS 
3$: ADD #2,R0 ; INCREMENT RETURN ADDRESS 
4$: MOV (SP)+,R1 :RESTORE R1 

RTS RO sEXIT 


THIS ROUTINE WILL PERFORM A ‘MASSBUS'’ INIT. FOLLOWED BY 
;A “"RECALIBRATE’’ ON THE DRIVE UNDER +S a 
NOTE: THIS ROUTINE DESTROYS R1 AND R 


CALL 
3 JSR — RO,SRCHOO 3D0 A MASSBUS INIT. AND RECAL 
; RETURN1 ;RETURN HERE IF NO ERROR 
; RETURN2 ;RETURN HERE ON ERROR 
SRCHOO: CLR R1 s INCASE OF ERROR (TYPTIM) 
CLR aaPs 
MOV #1SR,ARPVEC ;SETUP INTERRUPT VECTOR 
MOV OARPADR RS ;PICKUP ADDRESS OF RPCS1 
MOV #81105, RPCS2(R4) ;MASSBUS INIT. 
CLR a#DTADPB+10 : TRACK=0; SECTOR=0 
CLR a#DTADPB+12 sCYLINDER = 
MOV #RECAL, a#DTADPB*2 ;COMMAND = RECALIBRATE 
CLR NSE SCAPE NO ESCAPE ADDRESS 
JSR RO, a#RPO4 CALL THE DRIVER 
DTADPB :DPB POINTER 
BR 4$ sQUEUE IS FULL 
1$: TST DTADPB+16 ;WAIT ON DONE 
BEQ 1$ 
BPL 3$ s TAKE NORMAL EXIT IF NO ERROR 
MOV #2%,SESCAPE 7:ESCAPE TO 2$ ON ERROR 
MOV Q#DTADPB+12,a4CYL.DS ;CYLINDER 
MOVB Q#DTADPB+11,a#TRK.DS ; TRACK 
MOVB @#DTADPB+10,a#SEC.DS ;SECTOR 
MOV #DTADPB+16, =(SP) : STATUS/ERROR INDICATOR ADDRESS 
JSR PC, a#ERINDX FORM DISPATCH INDEX 
ADD (SP)+,PC = REPORT PROPER ERROR 
ERROR 41 : 
ERROR 42 ;PARITY ERROR 
ERROR 43 ;UNSAFE ERROR 
ERROR 44 ;NON-1/0 ERROR 
ERROR 45 31/0 ERROR 
2$: TST (RO)+ sADJUST FOR ERROR EXIT 
BR 4$ :GO TO THE EXIT 
3$: CLR RPDA(R4) s TRACK AND SECTOR = 0 
CLR RPCA(R4) sCYLINDER = 0 
4$: RTS RO ;RETURN 


Se 


SEQ 0128 
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6670 
oor THIS IS AN RT] WHICH IS USED BY THE TIMING TESTS & THE SERVO SETTLE DOWN TEST 
ret 027170 000002 DORTI: RTI RETURN FROM INTERRUPT 
6675 THIS ROUTINE WILL INITIALIZE THE TIMERS USED BY THE “TIMING ROUTI ES 
6676 7 CALL 
6677 3 JSR PC, a#STRIMR 
6678 } RETURN 
6679 
6680 027172 104412 STRTMR: SAVREG ZSAVE RO-R5 
6681 027174 012700 001276 MOV #TIM.UP,RO sSTART AT TIA. uP (MINIMUM) 
6682 027200 012701 001332 MOV #TIM.PT,R1 :STOP AT TIM 
6683 027204 005020 1$: CLR (RO)+ > CLEAR 
6684 027206 020001 CMP RO,R1 : DONE? 
6685 027210 103775 BLO 1$ :NO--BRANCH 
6686 027212 012710 050202 MOV #BUFFER, (RO) SETUP POINTER 
6687 027216 012737 077777 001276 MOV #*CBIT15,a#TIM.UP ;SET MINIMUM TIME TO MAXIMUM 
6688 027224 012737 077777 001314 MOV #*°CB1115,a#TIM.DN jPOSITIVE NUMBER 
6689 027232 104413 RESREG RESTORE RO-R5S 
roe 027234 000207 - RTS PC ReiURN 
6692 THIS ROUTINE WILL ADD THE ELAPSED TIME TO THE AVERAGE COUNTER AND 
6693 sMAINTAIN THE MINIMUM AND MAXIMUM TIMES. 
6694 NOTE: THIS ROUTINE DESTROYS R2 
6695 7 CALL 
6696 : MOV #TP,R3 :PARAMETER POINTER 
6697 : MOV FLAG,RS sFLAG=0=COUNT UP 
6698 : sFLAG=-1=COUNT DOWN 
6699 : JSR PC,a#COUNT 
6700 : RETURN 
6 
6702 027236 012702 001276 COUNT: MOV #TIM.UP,R2 :PICKUP THE “‘UP’’ POINTER 
6703 027242 005705 TST RS sUSE 11? 
6704 027244 001402 BEQ 1$ > YES--BRANCH 
6705 027246 012702 001314 MOV #TIM.DN,R2 :NO--PICKUP ‘‘DOWN'' POINTER 
6706 027252 027722 152126 1$ CMP aPKC, (R2)+ LESS THAN PREVIOUS LOW? 
6707 027256 002003 BGE 2$ >NO--BRANCH 
6708 027260 017762 152120 177776 MOV aPKC, -2(k2) sYES--SAVE IT 
6709 027266 027763 152112 000004 2$ CMP aPKC ,4(R3) LESS THAN THE LOW LIMIT? 
6710 027274 002001 BGE 3$ >NO--BRANCH 
6711 027276 005212 INC (R2) sYES=-COUNT IT 
6712 027300 005722 3$ TST (R2)+ ADVANCE THE POINTER 
6713 027302 027722 152076 CMP aPKC, (R2)+ GREATER THAN PREVIOUS HIGH? 
6714 027306 003403 BLE 4$ 3NO--BRANCH 
6715 027310 017762 152070 177776 MOV @PKC,-2(R2) sYES--SAVE IT 
6716 027316 027763 152062 000006 4$ CMP aPKC ,6(R3) GREATER THAN THE HIGH LIMIT? 
6717 027324 003401 BLE 5$ 3NO--BRANCH 
6718 027326 005212 INC (R2) :YES--COUNT IT ! 
6719 027330 00572 5$ TST (R2)+ ADVANCE THE POINTER 
6720 027332 067722 152946 ADD aPKC, (R2)+ :ADD THIS COUNT TO THE TOTAL 
6721 027336 005522 ADC (R2)+ 
6722 027340 005212 INC (R2) ;COUNT THIS READING 
6723 027342 022737 056472 001332 CMP #WBUFFER+<4*814.>,a#TIM.PT ;SAVE THIS COUNT? 
6724 027350 101406 BLOS 6$ >NO--BRANCH 
6725 027352 017777 152026 151752 MOV aPKC, aTIM.PT sYES=-WELL SAVE IT THEN 
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6781 027560 004737 023336 JSR PC ,a#$SB2d CHANGE Rs TO DECIMAL ASCIZ 
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6726 027360 062737 000002 001332 ADD #2, aT IM.PT ADVANCE THE POINTER 
ors 027366 000207 6$: RTS PC ; RETURN 
6729 ; THIS ROUTINE 1S USED TO TYPE THE MINIMUM, 
6730 ZMAXIMUM, AND AVERAGE TIMES FOR THE TIMING TESTS 
6731 ;1T WILL ALSO CHECK THE TIMES TO ENSURE 
6732 STHEY ARE WITHIN TOLERANCE AND IF NOT FLAG THE BAD TIMES. 
6733 NOTE: THIS ROUTINE DESTROYS R2-R5 
6734 > CALL 
6735 ; JSR RO,aaTYPTIM 3GO REPCRT THE TIMES 
6736 ; TABLE ;POINT TO THE PROPER TABLE 
ores ; RETURN 
6739 ; TABLE: MSGADR1 sADDRESS OF ASCIZ MESSAGE NUMBER | 
6740 ; MSGADR2 sADDRESS OF ASCIZ MESSAGE NUMBER 2 
6741 ; MIN. ALLOWED MINIMUM TIME ALLOWED 
4 ; MAX .ALLOWED ;MAXIMUM TIME ALLOWED 
6744 027370 012002 TYPTIM: MOV (RO)+#,R2 PICKUP THE TABLE POINTER 
6745 027372 032777 900100 151540 BIT #SW06 ,ASWR ; INHIBIT TIME REPORTS? 
6746 027400 001145 BNE 7$ ; YES--BRANCH 
6747 027402 012237 027422 MOV (R2)+,2$ ADDRESS OF MESSAGE NUMBER 1 
6748 027406 012205 MOV (R2)+,R5 sADDRESS OF MESSAGE NUMBER 2 
6749 027410 012203 MOV (R2)+,R3 ;PICKUP THE LOW LIMIT 
6750 027412 011202 MOV (R2) ,R2 ;AND THE HIGH LIMIT 
6751 027414 012704 001276 MOV #TIM.UP,RG ;PARAMETER POINTER 
6752 027420 104401 1$: TYPE ; TYPE THE MESSAGE 
6753 027422 000000 2$: -WORD 0 ;ASC1Z MESSAGE POINTER GOES HERE 
6754 027424 005764 000014 TST 14(R4) :D1D ANY COUNTS OCCUR? 
6755 027430 001527 BEQ 6$ ;!0--BRANCH 
6756 027432 104401 044170 TYPE -MSGMIN 7’ MIN=" 
6757 027436 012446 MOV (R4)+,-(SP) ;PUT (R4)+ ON THE STACK 
6758 027440 004737 023336 JSR PC ,a#$SB2D ;CHANGE (R4)+ TO DECIMAL ASCIZ 
6759 027444 004737 023566 JSR PC ,a#SSUPRS 2 TYPE WITHOUT LEADING ZEROS 
6760 027450 104401 044215 TYPE -MSGOUS 70 us" 
6761 027454 005724 TST (R4)+ TANY SEEKS BELOW THE LOW LIMIT 
6762 027456 001421 BEQ 3$ ;NO--BRANCH 
6763 027460 104401 044330 TYPE »MSG.SP ss 
6764 027464 016446 177776 MOV -2(R4) ,-(SP) PUT -2(R4) ON THE STACK 
6765 027470 004737 023336 JSR PC ,a#$SB2D ;CHANGE -2(R4) TO DECIMAL ASCIZ 
6766 027474 004737 023566 JSR PC ,a#SSUPRS TYPE WITHOUT LEADING ZEROS | 
6767 027500 104401 044222 TYPE -MBELOW ;"BELOW THE MINIMUM OF** 
6768 027504 010346 MOV R3,-(SP) ;PUT R3 ON THE STACK 
6769 027506 004737 023336 JSR PC ,a#$SB2D ;CHANGE R3 TO DECIMAL ASCIZ 
6770 027512 004737 023566 JSR PC ,a#$SUPRS TYPE WITHOUT LEADING ZEROS 
6771 027516 104401 044215 TYPE -MSGOUS 
6772 027522 104401 044177 3$: TYPE ,MSGMAX 7 "MAX=" 
6773 027526 012446 MOV (R4)+,-(SP) PUT (R4&)+ ON THE STACK 
6774 027530 004737 023336 JSR PC ,a#$SB2D ;CHANGE (R4)+ TO DECIMAL ASCIZ 
6775 027534 004737 025566 JSR PC ,a#$SUPRS ; TYPE WITHOUT LEADING ZEROS 
6776 027540 104401 044215 TYPE -MSGOUS 
6777 027544 005724 TST (R4)+ sANY SEEKS ABOVE THE HIGH LIMIT 
6778 027546 001421 BEQ 4$ ;NO--BRANCH 
6779 027550 104401 044330 TYPE »MSG.SP aie HOW MANY 
6780 027554 016446 177776 MOV ~2(R4) ,-(SP) PUT -2(R4) ON THE STACK 


a ne ee ee 
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027710 
027714 


027716 


027744 


027746 
027752 
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000200 


020237 


000200 


020 
001 


re 
—w 
on 


023730 


023336 


027422 


044315 


001520 


001522 
001520 


001520 


001512 


* PROGRAM SUBROUTINES *ee 
JSR ome 
BOVE 


§ 
4$: TYPE -MSGAVG 


ROL (SP)¢ 
BPL 5$ 
INC (SP) 

5$: 
JSR PC ,a#$SB20 
JSR PC, aa#SSUPRS 
TYPE »MSGOUS 
TYPE -MSG.SP 
MOV =2(R4), -(SP) 
JSR PC, a#$$B2D 
JSR PC .aaSSUPRS 
TYPE »MSGNUM 
MOV R5,2$% 
BEQ 7$ 
CLR R5 
teh 1$ 

6$: TYPE »MSGNON 

7%: RTS RO 


THIS SUBROUTINE WILL INCREMENT 


B il 
24-MAY-79 13:59 PAGE 135 


TYPE WITHOUT LEADING ZEROS 
;“"ABOVE THE MAXIMUM OF" 
;PuT R2 ON THE STACK 
;CHANGE R2 TO DECIMAL ASCIZ 
:TYPE WITHOUT LEADING ZEROS 


[FORM THE AVERAGE 


31S THE REMAINDER OVER HALF? 
3NO--BRANCH 
sYES=-ROUND UP 


;CHANGE TO DECIMAL ASCIZ 


TYPE WITHOUT LEADING ZEROS 


;PUT =2(R4) ON THE STACK 
CHANGE =2(R4) TO DECIMAL ASCIZ 
i TYPE phen t LEADING ZEROS 
SEEKS TIMED" 
NEXT MESSAGE POINTER 
:1F NONE EXIT 
;NO MORE THAN 2 


sEXIT 
THE TRACK 


NUMBER (R2) BY THE AMOUNT SPECIFIED By ‘IT’. 


7 CALL 
3 JSR RO, a#INCTRK 
: RETURNI 
: RETURN2 
INCTRK: CMP R2,aaLT 
BEQ 23 
ADD avlt,R2 
CMP R2,a4LT 
BLE 1$ 
MOV a#LT,R2 
1$: TST (RO)+ 
23: RTS RO 


THIS SUBROUTINE WILL INCREMENT 


; TRACK NUMBER GREATER THAN LT15 
7; TRACK NUMBER INCREMENTED 


LAST TRACK COMPLETED? 

7 YES@-EXIT 

;NO--UPDATE TRACK 

; TRACK TO BIG? 

7NO--EXIT 

;YES--SET TRACK TO LAST TRACK 
;ADJUST FOR RETURN 2 

; RETURN 


THE CYLINDER 


;NUMBER (R1) BY THE AMOUNT SPECIFIED BY ‘IC' 


3 CALL 
; JSR RO,a#@INCCYL 
: RETURN] 
: RETURN2 
INCCYL: CMP R1,aaLC 
BEQ 2% 


CYLINDER NUMBER GREATER THAN L(15 
;CYLINDER NUMBER INCREMENTED 


sLAST CYLINDER COMPLETED? 
sYES@-EX11 


SEQ 0151 
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6838 027754 063701 001514 ADD ss WIC, RI :NO=-UPDATE CYLINDER 

6839 027760 020137 001512 CMP ORT LC CYLINDER TO B1G? 

6840 027764 003402 BLE 1$ INO=-EXIT 

6841 027766 013701 001512 MOVs @#LC, RI TYES@=SET CYLINDER TO LAST CYLINDER 

6842 027772 005720 18: 1ST (RO)* ADJUST FOR RETURN 2 

6863 027774 000200 2s: RTS —s RO “RETURN 

6845 THIS ROUTINE DECREMENTS THE SECTOR ADDRESS. 

6846 § im 

6847 é CLR -(SP) sCLEAR THE STACK 

6848 : JSR —s- PC DEC SEC : SUBROUTINE ENTRY 

pee ; RETURN 

6851 027776 113766 004212 000002 DECSEC: MOvB RP. ~ sali. ee ye THE SECTOR ADDRESS ON THE STACK 

6852 030004 005366 000002 DEC 2(SP CREMENT THE ADDRESS 

6853 030010 100003 BPL 1$ SOR IF NOT CORRECTION NEEDED 

6854 030012 013766 001634 000002 MOV PRELMT*22.,2(SP) ;OVERFLOW OCCURED, FORCE TO MAXIMUM ADDRESS 

6855 030020 000207 18: RIS PC SRE TURN 

6857 sTHIS SUBROUTINE IS USED TO FILL THE DATA SUFFER 

6858 sW1TH ADDRESSES FROM 0 TO 21 WITH EACH ADDRESS 

6859 sBEING STORED IN 256 CONSECUTIVE LOCATIONS 

6860 CALL 

6861 3 JSR PC,a#f ILBUF 

6862 5 RETURN 

6863 

6864 030022 104412 FILBUF: SAVREG :SAVE RO - RS 

6865 030024 005000 CLR R sFIRST DISK ADDRESS 

6866 030026 012701 050202 MOV #BUFFER,R1 sSTART FILLING HERE 

6867 030032 012702 000400 18: MOV —- #256... :D0 256 WORDS 

6868 030036 010021 2$: MOV —s RO, (RI) ‘STORE 

6869 030040 005302 DEC —-R “MORE? 

6870 030042 003375 BGT 2$ YE S=-BRANCH 

6871 030044 005200 INC —RO NO=-UPDATE DISK ADDRESS 

6872 030046 023700 001630 CMP sé PRMLMT#22,RO0 —«: DONE? 

6873 030052 103367 BHIS ‘I$ :NO=-BRANCH 

6874 030054 104413 RESREG sRESTORE RO = RS 

ne 3h 030056 000207 TS PC RETURN 

6 

6877 i THIS ROUTINE WILL CLEAR THE BUFFER BY 

6878 SETTING EACH WORD TO ‘'177400". 

6879 CALL 

6880 : JSR RO, a#CLRBUF 

6881 3 RETURN 

6882 

6883 030060 104412 CLRBUF: SAVREG SAVE RO = RS 

6884 030062 012701 177400 MOV #177400,R1 sWORD TO FILL BUFFER WITH 

6885 030066 012702 050202 MOV #BUFFER,R2 cet ADDRESS OF BUFFER 

6886 030072 012703 076202 MOV WBUFFER*<512, #22. >,R3 ;LAST ADDRESS*2 OF BUFFER 

6887 030076 010122 1s: MOV sR, (R24 IFILL WORDS 1, 9,.+.249,...5625 | 

6888 030100 010122 MOV —soRT (R24 “FILL WORDS 2.10... .250,...5626 

6889 030102 010122 MOV ORT LCR2)4 “FILL WORDS 8.11....251... 25627 | 

6890 080106 010122 MOV —soaRT CRD TFILL WORDS 4212... 252... .5628 | 
| 6891 030106 010122 Mov «RT, (RQ) PFILL WORDS 5,13,...253,...5629 | 
| 6892 030110 010122 MOV RT (RQ) TFILL WORDS 6.14... 254... .5630 
6893 030112 010122 MOV R1,(R2)¢ sFILtL WORDS 7,15,...255,...5631 | 
| 
| 
| 


c=... ss 
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CZRJAD.P11 28-MAR-79 1 eee PROGRAM SUBROUTINES *** SEQ 0135 
6894 030114 010122 MOV R1,(R2)¢ FILL WORDS 8,16,...256,...5652 
6895 030116 020205 cP R2,R3 ; DONE? 
6896 030120 103766 BLO 1$ 3NO--BRANCH 
6897 030122 104413 RESREG ;RESTORE RO - RS 
pede 030124 000200 S$ RO sRETURN FROM CALL 
6900 s THIS ROUTINE 1S USED TO CHECK THE DATA BUFFER 
6901 ;FOR ADDRESSES 0 THROUGH 21 WITH EACH ADDRESS 
6902 ;BEING STORED IN 256 CONSECUTIVE LOCATIONS 
6903 7 CALL 
6904 3 JSR RO,@#CKSCTR 
6905 : RETURN 
6906 
6907 030126 104412 CKSCTR: SAVREG ;SAVE RO - RS 
6908 030130 162706 000004 SUB #4 ,SP sRESERVE TEMP. STORAGE AREA 
6909 030134 005001 CLR 1 sFIRST SECTOR 
6910 030136 012716 050202 MOV #BUFFER, (SP) FIRST ADDRESS OF DATA BUFFER 
6911 030142 005066 000002 CLR 2(SP) NO ERRORS 
6912 030146 012702 000020 1$: MOV 4+F »R2 ;LOOP COUNT (16*16=256) 
6913 030152 011603 MOV (SP ‘R3 ;GET 1ST ADDRESS OF THIS SECTORS DATA 
6914 030154 23: 
6915 030154 020123 CMP R1,(R3)¢ sWORD 1 
6916 030156 001063 BNE 7$ sBRANCH IF BAD 
6917 030160 020123 CMP R1,(R3)¢ sWORD 2 
6918 030162 001061 BNE 7$ ;BRANCH IF BAD 
6919 030164 020123 CMP R1,(R3)¢ sWwORD 3 
6920 030166 001057 BNE 7$ ;BRANCH IF BAD 
6921 030170 020123 CMP R1,(R3)¢ sWORD 4 
6922 030172 001055 BNE 7$ :BRANCH IF BAD 
6923 030174 020123 CMP R1,(R3)¢ sWORD 5 
6924 030176 001053 BNE 7$ BRANCH IF BAD 
6925 030200 020123 CMP R1,(R3)¢ sWORD 6 
6926 030202 001051 BNE 7$ ;BRANCH IF BAD 
6927 030204 020123 CMP R1,(R3)¢ 7WORD 
6928 030206 001047 BNE 7$ ;BRANCH IF BAD 
6929 030210 020123 CMP R1,(R3)¢ sWwORD 8 
6930 030212 001045 BNE 7$ ;BRANCH IF BAD 
6931 030214 020123 CMP R1,(R3)¢ sWwORD 9 
6932 030216 001043 BNE 7$ ;BRANCH IF BAD 
6933 030220 020123 CMP R1,(R3)¢ :wORD 10 
6934 030222 001041 BNE 7 :BRANCH IF BAD 
6935 030224 020123 CMP R1,(R3)¢ sWORD 11 
6936 030226 001037 BNE 7$ ;BRANCH IF BAD 
6937 030230 020123 CMP R1,(R3)¢ sWORD 12 
6938 030232 001035 BNE 7$ ; BRANCH IF BAD 
6939 030234 020123 CMP R1,(R3)¢ WORD 13 
6940 030236 001033 BNE 7$ : BRANCH IF BAD 
6941 030240 020123 CMP R1,(R3)¢ WORD 14 
6942 030242 001031 BNE 7$ ‘BRANCH If BAD 
6943 030244 020123 CMP R1,(R3)¢ swORD 15 | 
6944 030246 001027 BNE 7% ;BRANCH IF BAD 
6945 030250 020123 CMP R1,(R3)¢ WORD 16 
6946 030252 01025 BNE 7$ BRANCH 1F BAD 
6947 030254 005302 DEC R2 iF INI SHED WITH THIS SECTORS DATA? 
6948 030256 001336 BNE 23 NO--BRANCH 
6949 030260 062716 001000 3$: ADD #512., (SP) tYES@<F IRST ADDRESS OF NEXT SECTOR | 


Co nnn saan a 
q 
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CZRJAD.P11 28-MAR-79 11:28 eee PROGRAM SUBROUTINES *e* 
6950 030264 005201 INC R1 sMOVE TO NEXT SECTOR 
6951 030266 023701 001630 CMP PRALMT+22,R1 ; DONE? 
6952 030272 103325 BHIS 1$ 3NO--BRANCH 
6953 030274 005766 000002 4%: TST 2(SP) sERROR OCCUR? 
6954 030300 001406 BEQ 6% 3NO--BRANCH 
6955 030302 123737 001364 001103 CMPB Q#ERR.CT,A#SERFLG ; MAX. ERROR OCCURRED? 
6956 030310 101002 BHI é$ 3NO--BRANCH 
6957 030312 013700 001252 5$: MOV @#BYPASS,RO ; TAKE ERROR EXIT 
6958 030316 062706 000004 63: ADD #4 ,SP sFREE TEMP. AREA 
6959 030322 104413 RESREG ;RESTORE RO - RS 
6960 030324 000200 RTS RO sRETURN FROM CALL 
6961 030326 010304 7$: MOV R3,R4 7FORM WORD NUMBER AND 
6962 030330 161604 SuB (SP) ,R4 ; ADDRESS TO CONTINUE FROM 
6963 030332 010405 MOV R4,RS 
6964 030334 006204 ASR RS ;WORD NUMBER 
6965 030336 042705 177740 BIC a*C37,R5 ; 
6966 030342 001002 BNE 8$ ;BRANCH IF NOT A MULTIPLE OF 16 
6967 030344 012705 000040 MOV #40,R5 ;SET TO WORD 16 
6968 030350 006305 8$: ASL R5 
6969 030352 062705 030154 ADD #2$,R5 ; ADDRESS 
6970 030356 016337 177776 001126 MOV -2(R3),a#$BDDAT ;SAVE BAD DATA 
6971 030364 005766 000002 TST 2(SP) sFIRST ERROR? 
6972 030370 001015 BNE 10% 3 NO--BRANCH 
6973 030372 013737 004176 001270 MOV @#DTADPB+12,aMCYL.DS ;CYLINDER NUMBER 
6974 030400 113737 004175 001274 MOVB A#DTADPB+11,a#TRK.DS ; TRACK NUMBER 
6975 030406 012737 030416 001206 MOV #9% ,SESCAPE s ESCAPE TO 9$ ON ERROR 
6976 030414 104021 ERROR 21 ;REPORT THE ERROR 
6977 030416 105166 000002 9$: COMB 2(SP) ;SET ERROR SWITCH 
6978 030422 000404 BR 11$ 
6979 030424 108: 
6980 030424 012737 030434 001206 MOV #11$,SESCAPE s ESCAPE TO 11$ ON ERROR 
6981 030432 104022 ERROR 22 sREPORT THE ERROR 
6982 030434 032777 001000 150476 11$: BIT #SWO9,aSWR ;LOOP ON ERROR? 
6983 030442 001323 BNE 5 7 YES 
6984 030444 032777 000002 150466 BIT #SWw01,aSWR ;STOP DATA COMPARE? 
6985 030452 001310 BNE 4$ 3 YES--BRANCH 
6986 030454 123737 001364 001103 CMPB AMERR.CT,aMSERFLC ; MAX. ERRORS? 
6987 030462 101713 BLOS 5$ 3 YES--BRANCH 
6988 030464 032777 000040 150446 BIT #SW05,aSwWR sREPORT ONLY 1ST ERROR PER SECTOR? 
6989 030472 001272 BNE 3$ ; YES--BRANCH 
rr 030474 000115 JMP (R5) 
6 
6992 s THIS ROUTINE WILL MOVE THE 16 WORDS OF THE 
6993 sDESIRED PATTERN INTO THE DATA BUFFER. 
6994 3s CALL 
6995 : MOV #Nx,RO ;PATTERN NUMBER INDEX TO RO 
a 3 JSR PC ,a#SETBUF 
6 
6998 030476 104412 SETBUF: SAVREG ;SAVE RO = RS 
6999 030500 012701 050202 MOV #BUFFER,RI sFIRST ADDRESS 
7000 030504 013702 004170 MOV a#DTADPB+4,R2 ;wORD COUNT 
7001 030510 016003 003044 1$: MOV PAT.PT(RO) ,R3 sPICKUP PATTERN POINTER 
7002 030514 012321 MOV (R3)¢,(R1)¢ sMOVE WORD 1 INTO DATA BUFFER 
7003 030516 012321 MOV (R3)*,(R1)¢ :MOVE WORD 2 INTO DATA BUFFER 
70046 030520 012321 MOV (R3)*,(R1)¢ sMOVE WORD 3 INTO DATA BUFFER 
7005 030522 012321 MOV (R3)*#,(R1)¢ sMOVE WORD 4 INTO DATA BUFFER 
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CZRJAD.P11 28-MAR-79 11:28 #** PROGRAM SUBROUTINES *** SEQ 01355 
7006 030524 012321 MOV (R3)*,(R1)¢ ;MOVE WORD 5 INTO DATA BUFFER 
7007 030526 012321 MOV (R3)4+,(R1)¢ ;MOVE WORD 6 INTO DATA BUFFER 
7008 030530 012321 MOV (R304, (R1)¢ ;MOVE WORD 7 INTO DATA BUFFER 
7009 030532 012321 MOV (R3)4,(R1)¢ ;MOVE WORD 8 INTO DATA BUFFER 
7010 030534 012321 MOV (R3)+,(R1)¢ ;MOVE WORD 9 INTO DATA BUFFER 
7011 030536 012321 MOV (R3)+,(R1)¢ ;MOVE WORD 10 INTO DATA BUFFER 
7012 030540 012321 MOV (R3)4*,(R1)¢ ;MOVE WORD 11 INTO DATA BUFFER 
7013 030542 012321 MOV (R3)+,(R1)¢ ;MOVE WORD 12 INTO DATA BUFFER 
7014 030544 012321 MOV (R3)4,(R1)¢ ;MOVE WORD 13 INTO DATA BUFFER 
7015 030546 012321 MOV (R3)4, (R14 sMOVE WORD 14 INTO DATA BUFFER 
7016 030550 012321 MOV (R3)¢,(R1)¢ MOVE WORD 15 INTO DATA BUFFER 
7017 030552 012321 MOV (R3)¢,(R1)¢ ;MOVE WORD 16 INTO DATA BUFFER 


—d 


ee 


CZRJAD RP04/5/6 na AND READ/WRITE TEST 
CZRJAD.P11 1:28 


030554 


030564 


030566 


28-MAR-79 1 
062702 000020 
001355 


104413 
000207 


050202 
702 004170 


6 
6003 003044 


6 
os hy 000020 


010104 
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#** PROGRAM SUBROUTINES *** 


BNE 
RESREG 
RTS PC 


ADD * cau ; DONE? 


;NO--BRANCH 
RESTORE RO - R5 
RETURN 


THIS ROUTINE COMPARES A 16 WORD DATA PATTERN 
sAGAINST THE DATA BUFFER 


3 CALL 


DATCMP: 


1$: 
2$: 


MOV #NX,RO 

JSR PC ,a@#DATCMP 
RETURN 

SAVREG 

MOV #BUFFER,R1 
MOV 4D TADPB+4 ,R2 
CLR -(SP) 

MOV PAT.PT(RO) ,R3 


SUB (R3)+,(R1)¢ 
4% 

SUB (R3)+,(R1)* 
4% 

SUB (R3)+,(R1)¢4 
4% 


SUB (R3)+,(R1)¢ 
BNE 4 

SUB (R3)+,(R1)¢ 
BNE 4$ 

SUB — (R1)¢ 
BNE 

SUB (R3)*, (R1)+ 
BNE “a 

SUB (R3)+,(R1)¢ 
BNE 4% 

SUB (R3)4+,(R1)¢ 
BNE 4$ 

SUB (R3)+,(R1)+ 
BNE 6 

SUB (R3)+,(R1)¢ 
BNE 4% 

SUB (R3)+,(R1)+ 
BNE 4% 

SUB (R3)+,(R1)¢ 
BNE 4$ 

SUB (R3)+,(R1)¢ 
BNE 4% 

SUB (R3)+,(R1)¢ 
BNE 4% 

SUB (R3)+,(R1)¢ 
BNE 4$ 

ADD #16.,R2 

BNE 1$ 

TST (SP)¢ 
RESREG 

RTS PC 

MOV R1,R4 


;PATTERN NUMBER INDEX TO RO 


;SAVE RO - RS 
sFIRST ADDRESS OF BUFFER 
;WORD COUNT 


;NO ERROR 

PATTERN POINTER 
;CHECK WORD 1 
;BRANCH IF DIFFEREN! 
:CHECK WORD 2 
;BRANCH IF DIFFERENT 
CHECK WORD 3 
;BRANCH IF DIFFERENT 


: CHECK WORD 4 
;BRANCH IF a teenan 


; CHECK WORD 
BRANCH IF oe 
;CHECK WORD 6 
; BRANCH . —— 


= CHECK wORD 

;BRANCH IF DIFFERENT 
s CHECK WORD 

;BRANCH IF DIFFERENT 
sCHECK WORD 9 
;BRANCH IF DIFFERENT 
sCHECK WORD 10 
;BRANCH IF DIFFERENT 
sCHECK WORD 11 
;BRANCH IF DIFFERENT 
sCHECK WORD 12 
;BRANCH IF DIFFERENT 
sCHECK WORD 13 
sBRANCH IF DIFFERENT 


;CHECK WORD 14 
:BRANCH IF | heme 
CHECK WORD 15 
;BRANCH IF DIFFERENT 


[CHECK WORD 16 
;BRANCH IF DIFFERENT 
;DONE ? 


:NO=-BRANCH 
“YES == CLEAN UP STACK 
“RESTORE RO - R5 


;FORM THE WORD NUMBER 





SEQ 0136 


a a + ae ee ee ee 
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CZRJAD.P11 28-MAR-79 11:28 s** PROGRAM SUBROUTINES *** SEQ 0137 | 


7074 030724 162704 050202 SUB #BUFFER,RG 

7075 030730 006204 ASR RG ;WORD NUMBER 

7076 030732 010305 MOV R3,R5 ;FORM ADDRESS TO CONTINUE FROM 

7077 030734 166005 003044 SUB PAT.PT(RO) RS 

7078 030740 006305 ASL RS 

7079 030742 062705 030606 ADD #2$,R5 ; ADDRESS 

7080 030746 064341 ADD -(R3), -(R1) sRECONSTRUCT THE BAD WORD 

7081 030750 010137 001122 MOV R1  a#$BDADR ;SAVE THE ERROR INFORMATION 

7082 030754 010337 001120 MOv R3.as#SGDADR : 

7083 030760 012137 001126 MOv (R1)*,a@$BDDAT ; 

7084 030764 012337 001124 MOV (R3)*,a@SGDDAT ; 

7085 030770 005716 TST (SP) 31ST DATA COMPARE ERROR? 

0 030772 001023 BNE 6$ ;NO--BRANCH 

7087 030774 013737 004176 001270 MOV Q#DTADPB+12,a4CYL.DS ; CYLINDER 

7088 031002 113737 004175 001274 MOvB Q@#DTADPB+11,a#TRK.DS ; TRACK 

7089 031010 113737 004174 001272 MOVB @#DTADPB+10,a#SEC.DS ; SECTOR 

7090 031016 016600 000026 MOV 26(SP),RO 3GET TEST PC+4 

7091 031022 012737 031032 001206 MOV #5%,SESCAPE ;;ESCAPE TO 5$ ON ERROR 

7092 031030 104013 ERROR 13 sREPORT THE ERROR 

7093 031032 016600 900020 5$: MOV 20(SP),RO ;PATTERN NUMBER INDEX 

7094 031036 105116 COMB (SP) ;SET THE ERROR SWITCH 

7095 031040 000404 BR 7% 

7096 031042 6$: 

7097 031042 012737 031052 001206 MOV #7%,SESCAPE s ESCAPE 10 7$ ON ERROR 

7098 031050 104014 ERROR 14 sREPORT THE ERROR 

7099 031052 032777 000002 150060 /7$: BIT #Sw01,aSweR :STOP DATA COMPARE? 

7100 031060 001315 BNE 3$ ;YES--EXIT 

7101 031062 123737 001364 001103 CMPB Q#ERR.CT, aNSERFLG ;MAX. ERRORS? 

7102 031070 101004 BHI 8% ;NO--BRANCH 

7103 031072 013766 001252 000016 MOV @#BYPASS,16(SP) = YES=-ERROR EXIT 

71046 031100 000705 BR 3$ 

Aye 031102 000115 8$: JMP (R5) ;NO--CONTINUE AT NEXT WORD 
6 

7107 sTHIS ROUTINE WILL FILL THE DATA BUFFER (256*22 WORDS) WITH 

7108 :A RANDOM PATTERN. THE FIRST TWO WORDS OF EVERY 256 WIiL 

710 ;BE THE BASE OF THE RANDOM NUMBER GENERATOR FOR THE 

7110 sNEXT 254 WORDS. 

7111 sNOTE: THIS ROUTINE DESTROYS R1 AND R2 

7112 CALL 

7113 : JSR RO, a#F ILRAN 

abe, Y RETURN 

7116 031104 012701 050202 FILRAN: MOV #BUFFER,R1 

7117 031110 013702 001630 MOV PRMLMT+#22,R2 >MAX IMUM NUMBER OF SECTORS 

7118 0311146 006037 031324 1$: JSR RO, Qa#RANPAT 

7119 031120 005302 DEC R2 

7120 031122 100374 BPL 1$ 

ay 031124 000200 RTS RO 

7123 ;TRHIS ROUTINE USES THE FIRST TWO WORDS UF THE 

7124 ;READ BUFFER TO GENERATED A RANDOM PATTERN, THEN 

7125 : THE READ BUFFER 1S COMPARED TO THE PATTERN GENERATED. 

7126 SNOTE: THIS ROUTINE DESTROYS R1-R4 

7127 CALL 

7128 ; JSR RO, @@RANCK 


7129 : RETURN 
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CZRJAD.P11 28-MAR-79 11:28 se PROGRAM SUBROUTINES *** SEQ 0138 


7130 
7131 031126 013746 023724 RANCK: MOV QSSHINUM,-(SP) ;SAVE THE PRESENT RANDOM NUMBER 
7132 031132 013746 023726 MOV @#S$LONUM,-(SP) 
7133 031136 012702 051202 MOV #BUFFER*+512.,R2 ;READ BUFFER ADDRESS 
134 031142 012701 052202 MOV #BUFFER*1024.,R1 ; RANDOM PATTERN ADDRESS 
7135 031146 010103 MOV R1,R3 ;COPY IT INTO R3 FOR LATER USE 
7136 031150 011237 023726 MOV (R2),@#SLONUM ;PRIME THE RANDOM NUMBER GENERATOR 
7137 031156 016237 000002 023724 MOV 2(R2) ,@#SHINUM 
7138 031162 004037 031324 JSR RO, @#RANPAT ;GENERATE A RANDOM PATTERN 
7139 031166 012637 023726 MOV (SP)+,@@$LONUM ;RESTORE PRESENT RANDOM NUMBER 
7140 031172 012637 0235724 MOV (SP)+ a#SHINUM 
7141 031176 005046 CLR -(SP) NO ERRORS 
7142 031200 162322 1$: $uB (R3)+,(R2)¢ ;ARE THESE TWO WORDS DIFFERENT? 
71435 031202 001441 BEQ 4% > NO--BRANCH 
7144 031206 012737 031256 001206 MOV #3$, SESCAPE > ESCAPE TO 3$ ON ERROR 
7145 031212 0646342 ADD -(R3),-(R2) sRECREATE THE BAD WORD 
7146 031214 010237 001122 MOV R2,a#S$BDADR zADDRESS OF BAD DATA 
7147 031220 010337 001120 MOV R3,a#SGDADR ;ADDRESS OF GOOD DATA 
7148 031224 012237 001126 MOV (R2)+,a@SBDDAT ;BAD DATA 
7149 031230 012337 901124 MOV (R3)*+,a#$GDDAT ;GOOD DATA 
7150 031234 010204 MOV R2,R4 7FORM WORD NUMBER (1 TO 256) 
7151 031236 162704 051202 SUB #BUFFER*512.,R4 
7152 031242 006204 ASR R4 
7153 031244 005716 TST (SP) sFIRST ERROR 
7154 031246 001002 BNE 23 3;NO--BRANCH 
7155 031250 105116 COMB (SP) sYES=--SET ERROR SWITCH 
7156 031252 104015 ERROR 15 sREPORT THE ERROR 
7157 031254 104016 2$: ERROR 16 ;REPORT THE ERROR 
7158 031256 032777 001000 147654 38: BIT #SwO09,aSWR ;LOOP ON ERROR? 
7159 031264 001012 BNE 5$ 7 YES--BRANCH 
7160 031266 123737 001364 001103 CMPB Q#ERR.CT,@#@SERFLG ;MAX. ERRORS OCCURRED? 
7161 031274 101406 BLOS 5$ 7 YES--BRANCH 
7162 031276 032777 000002 147634 BIT #SW01,aSWR ;STOP COMPARING? 
7163 031304 001002 BNE 5$ 3 YES--BRANCH 
7164 031306 020103 4%: CMP R1,R3 ;ALL DATA BEEN COMPARED? 
7165 031310 101333 BH! 1$ >NO--BRANCH 
7166 031312 005726 5$: TST (SP)¢ sERROR OCCUR? 
7167 031314 001402 BEQ 6$ 7NO--BRANCH 
7168 031316 013700 001252 MOV a#BYPASS,RO s TAKE ERROR EXIT 
Ay 4 031322 000200 6$: RTS RO sEXIT 
7171 :THIS ROUTINE FILLS A 256 WORD BUFFER WITH A RANDOM 
7172 sPATTERN OF WHICH THE FIRST TWO WORDS ARE THE BASE 
7173 sOF THE PATTERN. 
7174 7 CALL 
7175 2 MOV #ADR,R1 sADDRESS OF THE BUFFER 
7176 3 JSR PO ,a#RANPAT 
7177 s RETURN 
7178 
7179 24 010246 RANPAT: MOV R2,-(SP) :SAVE R2 


26 012702 000200 MOV egies GENERATE 256 WORDS 


9313 
0313 
0313 2 

7182 031334 004737 023626 1$: JSR PC ,a#$RAND sGENERATE A RANDOM NUMBER 
031340 013721 023726 2$: MOV Q#$LONUM,(R1)* PUT LOW WORD IN BUFFER 
031344 013721 023724 MOV Q#SHINUM,(R1)* PUT HIGH WORD IN BUFFER 
031350 005302 DEC R2 ; DONE? 
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CZRJAD.P11 28-MAR-79 11:28 ee PROGRAM SUBROUTINES *ee SEQ 0139 | 
7186 031352 003570 BGT 1$ NO--BRANCH 
7187 031354 012602 MOV (SP)+,R2 RESTORE R2 
Ay. 031356 000200 RTS RO sExIT 
7190 THIS ROUTINE GENERATES RANDOM CYLINDER, TRACK, AND SECTOR 
7191 zs ADDRESSES AND SAVES THEN IN THE DPB (DTADPB+10 AND DTADPB+12). 
7192 NOTE: THIS ROUTINE DESTROYS R1-R3 
7193 7 CALL 
719% 3 JSR RO, @#RANADR 
Mog ; RETURN 
7197 031360 004737 023626 RANADR: JSR PC ,a#SRAND GENERATE A RANDOM NUMBER 
7198 031364 113701 023726 MOVB a4$LONUM,R1 FORM SECTOR IN RI 
7199 031370 113702 023727 MOvB asSLONUM+1,R2 ;FORM TRACK IN R2 
7200 031374 013703 023724 MOV Q4SHINUM,RS FORM CYLINDER IN R3 
7201 031400 105701 TSTB R1 [ENSURE THE SECTOR IS BETWEEN O AND 21 
7202 031402 002403 BLT 23 
7203 031404 123701 001630 1$: CMPB PRMLMT+22,R1 :CHECK MAXIMUM SECTOR ADDRESS 
7204 031410 103003 BHIS 3$ 
7205 031412 000241 2$ CLC 
7206 031414 106001 RORB R1 
7207 031416 000772 BR 1$ 
7208 031420 105702 3$: TSTB R2 ENSURE THE TRACK IS BETWEEN O AND 18 
7209 031422 002403 BLT 5% 
7210 031424 122702 000023 4$: CMPB #19.,R2 
7211 031430 003003 BGT 6$ 
7212 031432 000241 5$ CLC 
7213 031434 106002 RORB R2 
7214 031436 000772 BR 4% 
7215 031440 023703 001510 6$: CMP aaFO,R3 ENSURE THE CYLINDER IS BETWEEN FC AND LC 
7216 031444 003413 BLE 7$ 
7217 031446 000241 CLC 
7218 031450 006003 ROR R3 
7219 031452 005503 ADC R53 
7220 031454 001371 BNE 6$ 
7221 031456 010103 MOV R1,R3 
7222 031460 000303 SWAB R3 
7223 031462 060203 ADD R2,R3 
7224 031464 005203 INC s 
7225 031466 003364 BGT 6$ 
7226 031470 005403 NEG R3 
7227 031472 000762 BR 6$ 
7228 031474 023703 001512 7$: CMP aac ,R3 
7229 031500 002003 BGE 8$ 
7230 031502 000241 CLC 
7231 031504 006003 ROR R3 
7232 031506 000772 ao 7$ 
7233 031510 023703 001510 8$: CMP aerc,R3 
7234 031514 003403 BLE 9$ 
7235 031516 005203 INC R3 
723 031520 000303 SWAB R3 
7237 031522 000764 the 7$ 
7238 08152¢ 110137 004174 9$: MOVB R1,@#DTADPB+10 ;SAVE SECTOR ADDRESS 
7239 031530 110237 004175 MOVB R2,a#DTADPB+11 ;SAVE TRACK ADDRESS 
7240 031534 010237 004176 MOV R3,a#DTADPB+12 ;SAVE CYLINDER ADDRESS 
7241 031540 000200 RTS RO RETURN 








eee OO ee | 
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031542 
031550 
031552 
031556 


031600 


031632 


031634 
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032777 
001430 
104401 
000410 


012703 


000207 


forks 


090200 
031560 


043216 
001220 
031634 


001220 
001220 


031642 


043364 


034104 


147370 


001222 
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THIS ROUTINE IS USED TO INPUT THE “‘CONTROL SWITCHES". 
7 1F SWR<O7>=1 THE PRESENT SETTING WILL BE TYPED AND THE NEW 


SETTING 1S READ AND STORED. 


NOTE: THIS ROUTINE DESTROYS R3 AND &% 


CALL 

; JSR PC ,A#GETSWR 

: RETURN 

GETSWR: BIT #SWO7,aSwR 
BEQ 2$ 


E 
TYPE ,65$% 


; 64$ 
i LASCIZ <CR><LFD>/SET SWR<07>=0/ 


7 (C.SWR)=DESIRED CONTROL SWITCHES 


;READ CONTROL SWITCHES? 

;NO--BRANCH 

ei TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 


:‘"CONTROL SWITCHES="" 

PRESENT CONTROL SWITCH SETTINGS 

GET THE NEW SWITCH SETTINGS 

; COMMA 

; PERIOD 

SAVE PREVIOUS VALUE 

; DOUBLE PERIOD-SAVE NEW SWITCH SETTING 
;RETURN FROM CALL 


; INPUT AN ASCIZ STRING AND CHANGE THE STRING TO OCTAL 


ADDRESS OF ASCIZ MESSAGE 
;OCTAL NUMBER 


; INPUT TERMINATED WITH A COMMA 
sWJTH A PERIOD 

WITH A DOUBLE PERIOD 
7R4=INPUT NUMBER AND 

sR2=R4*352 FOR ALL 


1$: MOV #MSG.CS,R3 
MOV OFC. SWR RS 
JSR RO, @#GE TNUM 
BR 1$ 
NOP 
MOV C.SWR,SAVCSW 
MOV R4,a4C.SWR 
2$: RTS PC 
;THIS ROUTINE WILL TYPE AN ASCIZ MESSAGE AND THEN 
;1F REQUIRED. 
:NOTE : THIS ROUTINE DESTROYS R1 
CALL 
: MOV #WADR,RS 
; MOV #NUM,RS 
3 JSR RO,a#GETNUM 
: RETURN 
3 RETURN2 
: RETURNS 


heme MOV R3,2% 


2$: -WORD O 
MOV R4,-(SP) 


TYPE SLASH 


MOV (SP)+,R1 
JSR RO,a#CK.CHR 


118: DEC R] 
3$: 


THREE RETURNS 


SAVE MESSAGE POINTER 

TYPE THE MESSAGE 

MESSAGE POINTER cae HERE 

3:SAVE R4& FOR TYPEOU 

fie TYPE~-OCTAL ASCIICALL DIGITS) 


TREAD AN ASCIZ_ STRING 
ADDRESS OF FIRST CHARACTER 
CHECK ONE CHARACTER 
ILLEGAL CHARACTER 
CARRIAGE RETURN 


“DIGIT 0-9 
“DECREMENT THE INPUT POINTER 
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$s 
FNMNOGSNOSFHLNOSCHW 


WAWWWAAWA RD RPO 


031770 


031772 
031774 
032000 
032004 


032022 


032066 
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004037 
031640 


000200 


104412 
005037 
104401 
000406 


104411 


032046 
005301 


012702 


032116 


034344 


000056 


001272 
032006 


034104 


000007 
034160 


#** PROGRAM SUBROUTINES *¢* 


JSR RO,a#CK .NUM ;CHECK THE NUMBER 
1$ ILLEGAL INPUT 


6$ TERMINATED WITH A °’,"’ OR “'CR"’ 
5% TERMINATED WITH A **." 
4% TERMINATED WITH A **.."° 

4$: TST (RO) + ;DOUBLE PERIOD 

5$: TST (RO)+ SINGLE PERIOD 

6$: MOV R2,R4 


ae enit INPUT NUMBER 


BR 10% :GO TO EXIT 
7$ TSTB (R1) ; TERMINATOR AFTER A COMMA? 
BNE 1$ ;NO=-LOOP 
BR 10$ ZYES=-EXIT 
8$ TSTB (R1) ; TERMINATOR AFTER A PERIOD? 
BEQ 9$ 7 YES--EXIT 
CMPB #*.,(R1)¢ ;NO--DOUBLE PERIOD? 
BNE 1$ ;NO--LOOP 
TSTB (R1) 7 YES--TERMINATOR? 
BNE 1$ :NO=-LOOP 
TST (RO)¢ :DOUBLE PERIOD 
9$: TST (RO)+ ;PERIOD 
10$: MOV R4,R2 ; COMMA--POSITION THE 
SWAB Re ;NUMBER IN CASE IT 
ASR R2 1S THE PRIORITY LEVEL 
ASR R2 
ASR R2 
RTS RO sEKIT 


; THIS ROUTINE IS USED TO CHANGE OR MODIFY 

THE TEST PARAMETERS. IT GIVES THE OPERATOR 

:THE CAPABILITY OF SPECIFYING WHICH DRIVES TO TEST, WHICH 
; TESTS TO RUN AND HOW MANY TIMES TO 

REPEAT EACH TEST 


GT.PRM: SAVREG 7SAVE RO - R5 
GT.PR1: CLR DRVSEL sNO DRIVE SELECTED 
TYPE 05% 22 TYPE ASCIZ STRING 
BR 64 4% + OVER THE ASCIZ 
pieees -ASCIZ <CR><LF>/DRIVE(S)= 
64$: 
RDLIN ;READ TTY 
MOV (SP)¢,R1 sADDRESS OF ASCIZ STRING 
JSR RO, a4CK.CHR sCHECK ONE CHARACTER 
GT.PR1 s ILLEGAL CHARACTER 
GT.PRI1 s CARRIAGE RETURN 
GT.PR1 a a 
GT.PR1 wt 
GT.PR1 "yea 
1$ sDIGIT 0-9 
by DEC R1 
MOV #7,R2 ;UPPER LIMIT OF INPUT 
JSR RO,a#CK.D01G sCHECK THE DIGIT(S) 
GT.PR1 ; ILLEGAL INPUT 
GT.PR1 s INPUT TO LARGE 
3$ sTERMINATED WITH A ‘',"’ OR “'CR"’ 
4% sTERMINATED WITH A *’,” 
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7354 032070 032116 4% TERMINATED WITH A “’.."° 
7355 032072 156237 034620 001232 3%: B1SB oo DRVSEL tad THE DRIVE SELECTED BIT 
7356 032100 105741 TSTB (R1 sWAS THE LINE TERMINATED? 
7357 032102 001362 BNE 2$ sNO-GET THE NEXT DRIVE 
7358 032104 005037 001234 CLR asTSTNMS SDESELECT ALL TESTS 
7359 032110 005037 001236 CLR TSTNMS+2 
7360 032114 000405 BR GTTSTi YES--SELECT TEST 
7361 032116 156237 034620 001232 4$: BISB ATABIT(R2), DRVSEL iste a SELECTED DRIVE BITS 
7362 032124 104413 GT.PR2: RESREG RESTO E RO - R5 
Bong 032126 000207 RTS PC 3 te 
7365 032130 GTTST1: 
7366 032130 104401 032136 TYPE 65% 3: TYPE ASCIZ STRING 
7367 032134 000403 BR 64% 3:GET OVER THE ASCIZ 
7368 37658: .ASCIZ /TEST=/ 
7369 032144 64$: 
7370 032144 104411 RDLIN ;READ AN ASCIZ STRING 
7371 032146 012601 MOV (SP)+,R1 ;POINTER TO RI 
7372 032150 122711 000056 CMPB #*.,(R1) ;DOUBLE PERIOD? 
7373 032154 001007 BNE 1$ 3NO--BRANCH 
7374 032156 122761 000056 000001 CMPB #'.,1CR1) 
7375 032164 001003 BNE 1$ 
7376 032166 105761 000002 TSTB 2(R1) 7“"cR''? 
7377 032172 001754 BEQ GT.PR2 sYES--EXIT 
7378 032174 005037 001234 1$: CLR TSTNMS sNO TEST SELECTED 
7379 032200 005037 001236 CLR TSTNMS#2 
7380 032204 005037 001240 CLR OPNFLG :NO TESTS TO BE OPENED 
7381 032210 005037 001242 CLR OPNFLG+2 
7382 032214 121127 000123 GTTST2: CMPB (R1),#°S sALL SEEK TESTS? 
7383 032220 001004 BNE 1$ 3 NO--BRANCH 
7384 032222 052737 000777 001234 BIS #777, TSTNMS 7 YES--SELECT TESTS 0-10 
7385 032230 000552 BR GTTST3 
7386 032232 121127 000124 1$: CMPB (R1),a'T sALL TIMING TESTS? 
7387 032236 001004 BNE 23 3NO--BRANCH 
7388 032240 052737 036000 001234 BIS torts TSTNMS ;YES--SELECT TESTS 12-15 
7389 032246 000543 fea GTIST3 
7390 032250 121127 000101 2$: CMPB (R1),#°A ;ALL ADDRESSING TESTS? 
7391 032254 001004 BNE 3$ _ 3 NO--BRANCH 
7392 032256 052737 140000 001234 BIS #140000,TSTNM. ;YES--SELECT TESTS 16 & 17 
7393 032264 000534 BR GTTST3 
7394 032266 121127 000104 38: CMPB (R1),#'D ;DATA TEST? 
7395 032272 001004 BNE 4% >NO--BRANCH 
7396 032274 052737 000001 001236 BIS #1, TSTNMS+2 7 YES--SELECT TEST 20 
7397 032302 000525 BR GTTST3 
7398 032304 121127 000105 4$: CMPB (R1),#°E sEXERCISER TEST? 
7399 032310 001004 BNE 5$ :NO--BRANCH 
7400 032312 052737 000002 001236 BIS #2, TSTNMS+#2 sYES--SELECT TEST 21 
7401 032320 000516 BR GTTST3 
7402 032322 004037 034030 5$: JSR RO,a#CK.OCT sOCTAL DIGIT? 


010205 MOV R2,R5 sYES--SAVE IT 

2332 005201 INC R1 sMOVE TO NEXT CHARACTER 
2334 004037 034030 JSR RO,a#CK.OCT sOCTAL DIGIT 

2340 000405 ise 6$ ;NO--BRANCH 

2342 005201 INC R1 sMOVE TO NEXT CHARACTER 
2 


7403 032326 000514 BR GTTS14 :NO=-BRANCH 
330 
344 006305 ASL R5 :SCALE HIGH DIGIT 


-——— 


J 
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2572 001005 BNE 1$ ;BR IF YES 
2574 005737 001236 TST TSTNMS+2 cANY TEST SELECTED THIS CYCLE ? 


3 
a5e0t 005737 001234 TST TSTNMS TANY TEST SELECTED THIS CYCLE? 
3 


CZRJAD.P11 28-MAR-79 11:28 #** PROGRAM SUBROUTINES *e* SEQ 0143 

7410 032346 006305 ASL RS 

7411 032350 006305 ASL RS 

7412 032352 060502 ADD R5,R2 ; COMBINE HIGH & Loy DIGITS 

7413 032354 020227 000022 6$: CMP R2,#S1N-1 sVALID TEST NUMBER 

7414 032360 003265 BGT GTTST1 :NO--BRANCH 

7415 032362 010237 032554 MOV R2,9% : SAVE THE TEST NUMBER 

7416 032366 010204 MOV R2,R4 :CONVERT TEST NUMBER INTO AN INDEX 

7417 032370 042704 000017 BIC #17,R4 :CLEAR UNWANTED BITS 

7418 032374 006204 ASR RG SHIFT THE BITS 

7419 032376 006204 ASR R4 sSHIFT THE BITS 

7420 032400 006204 ASR R4 sSHIFT THE BITS 

7421 032402 006302 ASL R2 

7422 032404 056264 001424 001234 BIS BITS(R2), TSTNMS(R4) SELECT TEST 

7423 032412 121127 000055 CMPB (R1),@ : TEST STRING? 

7424 032416 001060 BNE GITST4 ;NO--BRANCH 

7425 032420 005201 INC : YES=-MOVE TO NEXT CHARACTER 

7426 032422 004037 034030 JSR be, oece oct sOCTAL DIGIT? 

7427 032426 000640 BR GTTST1 :NO--BRANCH 

7428 032430 010205 MOV R2,R5 sYES--SAVE IT 

7429 032432 005201 INC R1 :MOVE TO NEXT CHARACTER 

7430 032434 004037 034030 JSR RO, a#CK.OCT sOCTAL DIGIT? 

7431 032440 000405 BR 7$ ;NO--BRANCH 

7432 032442 005201 INC R1 sYES--MOVE TO NEXT CHARACTER 

7433 032444 006305 ASL RS SCALE HIGH DIGIT 

7434 032446 006305 ASL R5 

7435 032450 006305 ASL RS 

7436 032452 060502 iM ADD R5,R2 ; COMBINE HIGH & LOW DIGIT 

7437 032454 020227 000022 7$: CMP R2,#$1N-1 VALID TEST NUMBER? 

7438 032460 003223 BGT GTTST1 ;NO--BRANCH 

7439 032462 023702 032554 CMP 9$,R2 1S THE FIRST NUMBER OF THE 

7440 >STRING SMALLER THAN THE LAST? 

7441 032466 002220 BGE GTTST1 :NO--BRANCH 

7442 032470 010246 MOV R2,-(SP) SAVE ENDING TEST NUMBER 

7443 032472 013702 032554 MOV 9$,R2 :GET STARTING TEST NUMBER 

7444 032476 012637 032554 MOV (SP)+,9% STORE ENDING TEST NUMBER 

7445 032502 006337 0352554 ASL ot :SHIFT ENDING TEST NUMBER 

7446 032506 006302 ASL R2 SHIFT TEST NUMBER 

7447 032510 010204 8$: MOV R2,R4 COPY TEST NUMBER INTO R4 

7448 032512 042704 000037 BIC #37,R4 :CLEAR LOWER BITS 

7449 032516 006204 ASR R4 :SHIFT THE TEST NUMBER 
| 7450 032520 006204 ASR R4 :SHIFT THE TEST NUMBER 

7451 032522 006204 ASR + ; SHIFT THE TEST NUMBER 

7452 032524 006204 ASR SHIFT THE TEST NUMBER 

7453 032526 056264 001424 001234 BIS si istaad. TSTNMS (RA) SELECT THE TEST 

7454 032534 062702 000002 ADD #2,R2 : INECREMENT THE TEST NUMBER 

7455 032540 020237 032554 CMP R2,9% : SEE IF FINISHED 

7456 032544 101761 BLOS 8% :BR IF NOT 

7457 032546 162702 000002 SUB #2,R2 CORRECT TEST NUMBER 
7458 032552 000402 BR GTTS14 : CONTINU ! 
7459 032554 000000 9$: WORD 0 : STORE TEST NUMBER HERE 

7460 032556 005201 GTTST3: INC R1 : MOVE TO NEXT CHARACTER 

7461 032560 121127 000056 GITST4: CMPB (R1),#". PERIOD’? 

7462 2564 001441 BEQ GTTSTS = YES==-BRANCH | 
| 

| 

| 
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CZRJAD.P11 28-MAR- 


466 2600 

7467 032602 000137 032130 

7468 052606 121127 000057 
001004 

7470 032614 056264 001424 
000405 

7472 032624 ARS 14 000054 

032130 


032214 
001240 


1 

2 

7? 

7 

2 

: 001242 
: 0321350 
7 900056 
1 


7489 032704 000137 032130 
7490 032710 005737 001240 


7492 032716 005737 001242 
7494 032724 000137 032124 


7498 032736 000137 0321350 
7499 032742 005737 001240 


7501 032750 005737 001242 
7502 032754 001002 
ay 032756 000137 032124 


504 

7505 

7506 

7507 032762 104412 

7508 032764 005027 

7509 032766 000000 

7510 032770 000411 

7511 032772 005237 032766 
7512 032776 022737 000022 
7513 033004 002003 

7514 033006 104413 

7515 033010 000137 032130 
7516 033014 013705 052766 
7517 033020 006305 

7518 033022 013703 032766 
7519 033026 042703 000017 
7520 033032 006205 

7521 033034 006203 


001240 


032766 


1$: 


23: 


3$: 


4$: 


GTTSTS: 


1$: 


GTTST6: 


1$: 


1$ 

GTTST1 

(R1),8°/ 
$ 


BITS(R2), 
3$ 
(R1),#", 
3$ 

GTTST1 

R1 

(R1) 

4$ 
GTTST2 
OPNFLG 


OPNTST 
OPNFLG+2 


OPNTST 


OPNTST 
OPNFLG+2 
OPNTST 
GT.PR2 


B 12 
24-MAY-79 


7BR 
NO 
:*0 


:NO=- 
OPNFLG (RG) 
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If YES 
PEN'’? 


Sen ar ie 


MOVE, TO NEXT CHARACTER 


soa 
3 AN 


IF YES 


iF "CR 


;NO--GO GET NEXT CHARACTER 


Y TESTS TO OPEN ? 


;BR IF YES 


3 AN 


;NO 


sMOVE 10 NEXT CHARACTER 


Y TESTS TO OPEN ? 
If YES 
--START AGAIN 


;""PERIOD**? 


YE 

CR’ 
“YE 
3; AN 


S=-BRANCH 
§--BRANCH 
Y TESTS TO OPEN ? 


;BR IF YES 


: AN 
BR 


;NO--GO START TESTING 
aeNe. , 19 NEXT CHARACTER 


iE 

NO 
CAN 
7 BR 
7 AN 


Y TESTS TO OPEN ? 
IF YES 


§--BRANCH 

NO--GO ASK FOR TEST 

Y TESTS TO OPEN ? 
IF YES 

Y TESTS TO OPEN ? 


;BR IF YES 


;NO--GO START TESTING 


;OPEN THE SELECTED TEST FOR CHANGES 


OPNTST: 
OPN.CT: 


OPN.1: 


OPN.2: 


SAVREG 
CLR 
. WORD 


SAVE RO = R5 
(PC>+ ;START WITH TESi 0 
0 ;COUNT STORED HERE 
OPN.2 :SKIP THE INCREMENT 
OPN.CT ;MOVE TO THE NEXT TEST 
#STIN-1,0PN.CT  ;TEST NUMBER TOO B1G? 
OPN.2 ;NO--OPEN THE NEXT TEST 
;RESTORE RO = RS 
GTTST1 ;YES--GO ASK FOR MORE TESTS 
OPN.CT,RS :SETUP TO USE THE 
5 ; TEST NUMBER AS AN INDEX 
OPN.CT,R5 :GET INDEX 
#17,R3 ;CLEAR LOWER TEST BITS 
R3 : SHIFT TEST NUMBER 
R3 ; SHIFT TEST NUMBER 


BRANCH 
;YES--SET BITS FOR TEST TO OPEN 


SEQ 0144 


rer. 


Pd 
¢ 
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3036 006203 ASR R3 HIFT TEST NUMBER 

3040 036565 001424 001240 Bil zeros OPW LGCRS) ;OPEN THIS TEST? 
3046 001751 BEQ OPN ;NO=-MOVE TO NEXT TEST 
3050 104401 055056 TYPE oS. :;TYPE ASCIZ STRING 
3054 0 
3 


~ 

wv 

Nm 

- 
ooo°oo 


00404 BR 64% ;;GET OVER THE ASCIZ 
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7$27 33658: .ASCIZ / TEST / 
7528 033066 643: 
7529 033066 013746 032766 MOV OPN.CT,-(SP) 7: SAVE OPN.CT FOR TYPEOUT 
7530 7; TEST NUMBER 
7531 033072 104403 TYPOS ::60 TYPE--OC TAL ASCII 
7532 033074 002 .BYTE 2 >: TYPE 2 DIGIT(S) 
7533 033075 000 “BYTE 0 : : SUPPRESS LEADING ZEROS 
7534 033076 1044601 001215 TYPE  ,S$CRLF YPE CR’ @ 
7535 033102 016500 001536 MOV PRMPT(RS),RO sOcKuP PARAMETER POINTER 

536 033106 011046 MOV (RO) ,-(SP) : SAVE THE VARIABLE INDICATOR 
7537 033110 012702 001504 MOV #PRA,R2 sFIRST ADDRESS OF TABLE 
7538 033114 000405 BR 2$ 
7539 033116 006216 1$: ASR (SP) ;CHECK FOR A VARIABLE 
7540 033120 103403 BCS 2$ [GO MOVE THIS ONE 
7541 033122 001404 BEQ OPNPRM 3; DONE 
7542 033124 005722 TST (R2)+ ;BUMP THE POINTER 
7543 033126 000773 BR 1$ 
7544 033130 012022 2$: MOV (RO)+,(R2)¢ sMOVE THIS VARIABLE INTO THE 
7545 033132 000771 BR 1$ ; COMMON AREA 
7546 033134 013716 001504 OPNPRM: MOV aa#PRM, (SP) :GET THE VARIABLE INDICATOR 
7547 033140 005004 CLR RG ‘ZERO THE INDEX 
7548 033142 006216 1$: ASR (SP) sCHECK FOR A VARIABLE 
7549 033144 103403 BCS 3$ 360 GET IT 
7550 033146 001772 BEQ OPNPRM ;OUT OF VARIABLES 
7551 033150 005724 23: TST (R4)+ ;UPDATE THE INDEX 
7552 033152 000773 BR 1$ 
7553 033154 005764 001606 3$: TST PRMLMT (RG) 31S THE MAX. MAGNITUDE NEG? 
7554 033160 100466 BMI OPNPAT sYES--THEN IT IS THE PATTERN 
7555 033162 104401 044330 TYPE »MSG.SP ; TYPE SPACES 
7556 033166 016437 001636 033176 MOV PRMMSG(R4) 48% ; TYPE THE NAME OF THIS VARIABLE 
7557 033174 104401 TYPE 
7558 033176 000000 4$: .wORD 0 
7559 033200 104401 043214 TYPE -MSG.EQ sTvPE **s** ‘ 
7560 033204 016446 001506 MOV RPT(R4) ,-(SP) sPUT RPT(R4) ON THE STACK 
7561 033210 004737 023336 JSR PC ,a#$SB2D sCHANGE RPT(R4) TO DECIMAL ASCIZ 
7562 033214 004737 023566 JSR PC ,a#SSUPRS s TYPE WITHOUT LEADING ZEROS 
7563 033220 104401 043364 TYPE SLASH shyt 
7564 033224 104411 RDLIN 
7565 033226 012601 MOV (SP)+,R1 sREAD AN ASCIZ STRING 
7566 033230 004037 034104 JSR RO, a#CK.CHR i CHECK ONE CHARACTER 
7567 033234 033154 3$ SILLEGAL CHARACTER 
7568 033236 033150 2$ : CARRIAGE RETURN 
7569 033240 033306 a ee 
7570 0332462 033250 5$ ‘a 
7571 0332464 033256 6$ 
7572 033246 033304 7$ ipight 0-9 
7578 033250 105711 5$: TSIB ss (RI) 
7574 033252 001340 BNE 3$ sok the ON THIS VARIABLE 
7575 033254 000735 BR 2$ [YES=-MOVE TO NEXT VARIABLE 
7576 033256 105711 6$: TSTB (R1) “1S THERE A “‘CR'' AFTER THE PERIOD? 
7577 033260 001002 BNE 64$ = NO | 

} 
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CZRJAD.P11 
7578 033262 
7579 033266 
7580 033272 
7581 033274 
7582 033276 
7583 033300 

584 033304 
7585 033306 
7586 033306 
7587 033312 
7588 033316 
7589 033320 
7590 033322 
7591 033324 
7592 033326 
7593 033330 
7594 033334 
7595 033336 
7596 033342 
7597 633346 
7598 033352 
7599 033356 
7600 033360 
7601 033364 


7632 033472 
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005301 
004037 


012704 


104401 
000403 


033676 
000056 


033714 


001606 
034160 


001506 


044330 
043210 
043214 
001506 
044331 


054104 


000056 


034344 


001506 


003104 
033474 


64%: 


7$: 
8$: 


9$: 


OPNPAT: 


3$: 


4$: 


OPNWDS: 


1$: 


37658: 


OPN.N2 ;YES--GO CLOSE THIS TEST 

w’., (R14 ;DOUBLE PERIOD? 

3$ ;NO--GO ASK FOR THIS VARIABLE 

(R1) sYES--1S A “'CR’’ AFTER THE DOUBLE PERIOD? 
3$ 7NO--ASK 4 ri? VARIABLE AGAIN 

OPN.X2 ;YES--CLOSE ALL TEST 

RI :BACK THE POINTER UP BY ONE 


PRALMT(RG),R2 ;UPPER LIMIT OF INPUT 
RO,a#CK.DIG ;CHECK THE DIGIT(S) 
ILLEGAL INPUT 
; INPUT TO LARGE 
TERMINATED WITH A *’,"* OR ‘“’CR’ 
TERMINATED WITH A *’." 
TERMINATED WITH A "’.."’ 
ep pape SAVE THIS VARIABLE 


;MOVE TO NEXT VARIABLE 
»MSG.SP ; TYPE SPACES 
oMSG.PAT ; TYPE ‘‘PAT"’ 
»MSG.EQ ;TYPE “*="° 


RPT(R4) ,-(SP) : 3 SAVE RPT(R4) FOR TYPEOUT 
:GO TYPE=-OCTAL ASCII(ALL DIGITS) 


»MSG.SP+1 :TYPE ONE SPACE 
;READ ASCIZ STRING 

(SP)+,R1 ;PICKUP POINTER 

RO,a#CK.CHR ;CHECK ONE CHARACTER 


ILLEGAL CHARACTER 
CARRIAGE RETURN 
"ae dab 


‘DIGIT 0-9 
(R1) "CR" AFTER THE PERIOD? 
OPN.N2 ;YES--GO CLOSE THIS TEST 
#'.,(R1)¢ :NO--PERIOD? 
OPNPAT ;NO--LOOP 
(R1) 3'CR'’ AFTER A DOUBLE PERIOD? 
OPN.X2 :YES--GO START TESTING 
OPNPAT >NC--LOOP 
R1 ;BACKUP THE ASCII POINTER 
RO,a#CK.NUM ;CHECK [HE NUMBER 


; ILLEGAL INPUT 

TERMINATED WITH A ‘',"’ OR “CR” 
;TERMINATED WITH A ‘*,* 
TERMINATED WITH A ‘’.."’ 


R2,RPT(R4) 7SAVE THE INPUT NUMBER 

R2 OPEN PATTERN 0? 

OPNPRM zNO--START AT BEGINNING OF PARAMETER TABLE 
sSAVE RO - RS 

RO > START WITH WORD 0 

#PATO,RG 

65% >: TYPE ASCIZ STRING 

64% 3:GET OVER THE ASCI2Z 

/ WDd/ 


SEQ 0146 
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CZRJAD.P11 28-MAR-79 11:28 #ee PROGRAM SUBROUTINES *** SEQ 0147 | 
7634 033502 643: 
7635 033502 010046 MOV RO,-(SP) PuT RO ON THE STACK 
7636 40335 004737 023336 JSR PC,a#$SB2D0 ; CHANGE ko” TO DECIMAL ASCIZ 
7637 033510 004737 023566 JSR PC ,a#SSUPRS s TYPE WITHOUT LEADING ZEROS 
7638 033514 104401 0435214 TYPE -MSG.EQ S TYPE ° ‘:* 
7639 033520 011446 MOV (RG) = (SP) 7;SAVE (R4&) FOR TYPEOUT 
7640 033522 104402 TYPOC 3360 TYPE--OCTAL ASCII(ALL DIGITS) 
7641 033526 104411 RDLIN ;READ ASCIZ STRING 
7642 033526 012601 MOV (SP)+,R1 ;PICKUP THE POINTER 
7643 033530 004037 034104 JSR RO,a#CK.CHR sCHECK ONE CHARACTER 
7644 033534 035466 1$ ; ILLEGAL CHARACTER 
7645 033536 033570 4% > CARRIAGE RETURN 
7646 033540 033552 23 “2 
7647 033542 033570 4$ ya 
7648 033544 033604 5$ os 
7649 033546 033550 10% :DIGIT 0-9 
7650 033550 005301 108: DEC R1 sBACKUP THE ASCII] POINTER 
7651 033552 28: 
7652 033552 004037 034344 JSR RO, a#CK.NUM :CHECK THE NUMBER 
7653 033556 033466 1$ sILLEGAL INPUT 
7654 033560 033566 3$ ‘TERMINATED WITH A “’,"’ OR "'CR" 
7655 033562 033624 6$ sTERMINATED WITH A venes 
7656 033564 033636 8$ : TERMINATED WITH A's.” 
7657 033566 010214 3$: MOV R2,(R4) ;SAVE THE INPUT 
7658 033570 005724 4$: TST (R4)+ :MOVE TO NEXT WORD 
7659 033572 005200 INC RO : INCREMENT THE COUNT 
7660 033574 022700 000020 CMP #16.,R0 ;COUNT TO LARGE? 
7661 033600 003332 BGT 1$ :NO--BRANCH 
7662 033602 000726 BR OPNWDS 3 YES--BRANCH 
7663 033604 105711 5$: TSTB (R1) 7"'CR'’ AFTER THE PERIOD? 
7664 033606 001407 BEQ 7% sYES--GO CLOSE THIS TEST 
7665 033610 122721 000056 CMPB e*..,tR1)9 ;NO--PERIOD? 
7666 033614 001324 BNE 1$ :NO=-BRANCH ILLEGAL INPUT STRING 
7667 033616 105711 1S1B (R1) :'CR'' AFTER THE ‘‘PERICD-PERIOD''? 
7668 033620 001407 BEQ 9$ sYES=--GO START TESTING 
7669 033622 000721 BY 1$ ;NO--LOOP 
7670 033624 010224 6$: MOV R2,(R4)* >SAVE THE INPUT 
7671 033626 004737 033650 7$: JSR PC ,a#CLSwDS :CLOSE THE DATA PATTERN 
7672 033632 104413 RESREG ;RESTORE RO - R5 
7673 033634 000420 Re OPN.N2 sMOVE TO NEXT TEST 
7674 033636 010224 8$: MOV R2,(R4)* >SAVE THE INPUT 
7675 033640 004737 033650 9$: JSR PC,a#CLSwDS :CLOSE THE DATA PATTERN 
7676 033644 104413 RESREG sRESTORE RO - R5 
7677 033646 000422 BR OPN.X2 sSTART TESTING 
7678 033650 012701 003104 CLSWDS: MOV #PATO,RI sFIRST ADDRESS OF DATA PATTERN 
7679 033654 005200 1$: INC RO :COUNT THE LAST WORD THAT WAS STORED 


7680 033656 022700 000017 CMP #15. ,R0 ;END OF TABLE 


7681 033662 002402 BLT 2$ sYES@-EXIT 

7682 033664 012124 MOV (R1)+,(R4)+ 7 COPY 

7683 033666 000772 BR 1$ ;LOOP 

7684 033670 000207 2$: RTS PC ;RETURN 

7685 033672 010264 001506 OPN.N1: MOV R2,RPT(R4) SAVE THIS VARIABLE 
7686 033676 005726 OPN.N2: TST (SP)¢ :CLEAN OFF THE STACK 
7687 033700 004737 033750 JSR PC CLOSE ;CLOSE THIS TEST 

7688 033704 000137 032772 JMP OPN. 1 ;G0 OPEN THE NEXT TEST 
7689 033710 010264 001506 OPN.X1: MOV R2,RPT(R4) SAVE THIS VARIABLE 


CZRJAD RPOG/5S/6 MECHANICAL AND READ/WRITE TEST MACY11 30A(1052) 
CZRJAD.PI 1:28 


AAAI AIAN _ 
CeeeNs a 
NOLNO LS 


034026 


034030 


034054 


28-MAR-79 1 


005726 


000207 


033750 
000034 


032124 
001424 


001504 
001536 


000001 


002000 


000060 
000067 


177770 


#** PROGRAM SUBROUTINES *** 


OPN.X2: TST (SP)+¢ 
1$: JSR PC, CLOSE 
23: TST (R5)¢ 
CMP R5,#16*2 
T 3% 
RESREG 
JMP GT.PR2 
3$: BIT BITS(RS),R3 
BNE 1$ 
BR 23 
CLOSE: SAVREG 
MOV #PRA,RO 
MOV PRMPT(RS),RI 
MOV (RO)+,R2 
MOV (R1)4,R3 
MOV #1,R4 
1$: BIT R4,R2 
BEQ 2% 
BIT R4,R3 
BEG 3$ 
MOV (RO), (RI) 
2%: BIT R4,RS 
BEQ 3$ 
TST (R1)+ 
3$: TST (RO)+ 
ASL RG 
BIT #BIT10,R4 
BEQ 1$ 
RESREG 
RTS PC 
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:CLEAN OFF THE STACK 
;CLOSE THIS TEST 
;UPDATE THE INDEX 

; INDEX 10 B1G? 
;NO--BRANCH 

sRESTORE RO - RS 

+60 TO EXIT 


71S THIS TEST OPEN FOR CHANGE ? 
:YES=-G0 CLOSE iT 
:NO~-MOVE TO NEXT TEST 
E RO - RS 
PROM ADDRESS 
;‘"T0"" ADDRESS 
: FROM’ INDICATOR 
iT" INDICATOR 


[TEST BIT START A “RPT” 
;PARAMETER TO BE MOVED? 

; NO--BRANCH 

;A PLACE TO PUT IT? 
;NO--BRANCH 

7YES=-MOVE ‘‘FROM'’ TO ‘‘TO"’ 
3"'T0"' PARAMETER? 
;NO--BRANCH 

7 YES--UPDATE THE POINTER 
; UPDATE FROM POINTER 


;POSITION THE TEST BIT 
; DONE? 

;NO--BRANCH 

RESTORE RO = R5 


[RETURN 


; THIS ROUTINE IS USED TO CHECK IF AN 
sASCI1 CHARACTER IS A DIGIT BETWEEN O AND 7. 


s CALL 

MOV #ADR,RI 

JSR RO,a#(K OCT 
RETURNI 

RETURN2 


CK.OCT: CMPB (R1),#'0O 
6 1$ 
CMPB perae 


1 
MOvVB (R1),R2 
BIC #*C7,R2 
TST (RO)+ 
1$: RTS RO 


ADDRESS OF ASCII CHARACTER 
sCHECK THE CHARACTER 
CHARACTER IS NOT BETWEEN 0-7 
;CHARACTER IS IN R2 AS A 
sOCTAL DIGIT 


:LESS THAN ZERO? 

3YES -- BRANCH 
:GREATER THAN SEVEN? 
7 YES -- BRANCH 

;GET THE CHARACTER 
sSTRIP AWAY THE ASCII 
;ADJUST FOR RETURN 
;RETURN 


;THIS ROUTINE IS USED TO CHECK AN ASCII CHARACTER 


sAND DETERMINE IF IT IS A DIGIT 


CALL 

MOV #ADR,RI 

JSR RO, a#CKk .DEC 
RETURN] 

RE TURN2 


ee Be Be Be Be 


BETWEEN 0 AND 9. 


ADDRESS OF ASCI] CHARACTER 
;CHECK THE CHARACTER 

;NOT BETWEEN 0 AND 9 
:BETWEEN Q AND 9 

*R2 : = DIGIT 


SEQ 0148 


CZRJAD RPO4/S/6 wo Se — READ/WRITE TEST 
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034102 


034104 


034156 


034160 
034162 


28-MAR-7 


000200 


010446 
010346 


000057 
000054 
000056 
034056 


MACY11 30A(1052) 


s** PROGRAM SUBROUTINES *** 


CK.DEC: eo 


1$: RTS 
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;LESS THAN ZERO? 
:YES == BRANCH 
;GREATER THAN NINE? 
;YES -- BRANCH 
;GET THE CHARACTER 
;STRIP AWAY THE ASCII 
; ADJUST FOR RETURN 
; RETURN 


THIS ROUTINE WILL CHECK AN ASCII] CHARACTER TO 
DETERMINE WHAT IT IS. 


7 CALL 


#WADR,RI 
+7 pale 


sADDRESS OF ASCI1 CHARACTER 
sCHECK CHARACTER 

;UNKNOWN CHARACTER 

sCARRIAGE RETURN © (R1)=ADR+1 
sSLASH * (R1)=ADR41 

sCOMMA * (R1)=ADR+1 

:PERIOD * (R1)=ADR+1 

sDIGIT BETWEEN O AND 9. 

R2 = DIGIT * (RI)=ADR¢1 


s"CARRIAGE RETURN’? 
;YES == BRANCH 
: ““SLASH''? 


YES == BRAN CH 
: PERIOD"? 
:YES == BRANCH 
: DIGIT? 


3NO -- BRANCH 
;DIGIT BETWEEN 0-9 
;PERIOD 

; COMMA 


3; SLASH 

; CARRIAGE RETURN 

sMOVE POINTER TO NEXT CHARACTER 
sUNKNOWN CHARACTER 

; RETURN 


7 THIS ROUTINE CHECKS AN ASCII STRING FOR LEGAL 


7 CHARACTERS AND FORMS A DECIMAL 


3 CALL 


— — . . . . 7” . 
@D 
mn 
— 
Cc 
@D 
2 


RETURN 


C(K.DIG: MOV 
MOV 





#ADR,RI 
#NUM,R2 
RO,a#CK .DIG 
ADR1 


R4,-(SP) 
R3,-(SP) 


VALUE BINARY NUMBER IN R2. 


ADDRESS OF ASCIZ STRING 
MAX. MAGNITUDE OF INPUT NUMBER 
CHECK DIGITS 
: ILLEGAL CHARACTER == R2=? 

> INPUT NUMBER TO LARGE == R2=" 
; "COMMA" => R2 = ae 


‘PERIOD’ -- R2 = BER 
 PERIOD= PERIOD’ -- “et ae = NUMBER 
s SAVE RG 
SAVE R53 


SEQ 0149 








































CZRJAD.P11 28-MAR-7 
7802 034164 010246 


034174 004037 034104 
034200 


7819 034230 004037 034104 


7830 034260 004037 034104 


7841 034310 126127 177776 000054 


7852 034342 000200 


CZRJAD RPO4/5/6 santo ths te READ/WRITE TEST MACY11 30A(1052) 


#** PROGRAM SUBROUTINES *ee 


9$: 


23: 
3$: 


4$: 


5$: 


o$: 


7$: 
8$: 


> THIS ROUTINE CHECKS AN ASCIZ STRING FOR LEGAL CHARACTERS 
;AND FORMS AN OCTAL NUMBER IN R2 
3 CALL: 


MOV 





R2,-(SP) 
R2 


R53 
RG 
RO, a4CK CHP 


R3 
R3,-(SP) 
R3 


R3 
(SP)¢,R3 


R2,R 
RO,@#CK.CHR 


Rl 

38 

(RG)+ 

(R4)+ 
RO,O#CK.CHR 


(R4)+ 
(R1) 
6$ 


8$ 
-2(R1),#", 
8$ 

R3,(SP) 

7$ 


R4,RO 
(RO)+ 
R3,R2 
(SP)¢ 
(SP)+,R3 
(SP)+,R4 
(RO) ,RO 
RO 


MADR ,RI 
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sSAVE THE MAX. SIZE ON THE STACK 


START WITH O 


CHECK ONE CHARACTER 
ILLEGAL CHARACTER 
CARRIAGE RETURN 

ae’ te 


“DIGIT 0-9 
“SAVE #2 


38 

3 (1B) 4(e2)=010. 

;UPDATE THE INPUT NUMBER 
;CHECK ONE CHARACTER 

s ILLEGAL CHARACTER 

s CARRIAGE RETURN 

Sie sa 


“DIGIT 0-9 


;BACKUP THE CHARACTER POINTER 


; CONTINE 
: ‘PERIOD’ 


:"'COMMA’ OR "a" 
;CHECK ONE CHARACTER 
s ILLEGAL CHARACTER 

7 CARRIAGE RETURN 

e wx ai 


WAS CHARACTER BEFORE THE DIGIT A COMMA? 


IT 0-9 


ae -PERIOD"’ 


7 YES--BRANCH 


sNO--EXIT 


; INPUT TO LARGE? 
7YES == BRANCH 
sADJUST RETURN ADDRESS 


NUMBER TO R2 


sCLEAN MAX, SIZE OFF OF STACK 


;RESTORE R3 
sRESTORE RG 


;GET RETURN ADDRESS 


sRETURN 


ADDRESS OF ASCI2 STRING 


15:59 PAGE 154 
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034030 


034030 


034104 


000056 
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eee PROGRAM SUBROUTINES *** 


23: 


3$: 


4%: 
53: 


6$: 


JSR 

RETURN 
RETURN 
RETURN 
RETURN 


RO, a¢Ck .NUM ;G0 FORM THE NUMBER 

ADRI ;ILLEGAL CHARACTER IN THE INPUT STRING 
ADR2 :""COMMA’’ OR —- ER 
ADRS :"PERIOD''=-R2=NUMB 

ADRS  PERIOD-PERIOD' co R= NUMBER 
R3,-(SP) 7 SAVE RS 

uw ;START NUMBER AT ZERO 

RO, aaCk .0CT sOCTAL DIGIT? 

6$ 3;NO--BRANCH 

R1 : sMOVE TO NEXT CHARACTER 

R3 FOR THE OCTAL NUMBER IN R35 
4. ;DON'T LET IT GET TO BIG 

6$ 

R3 

6$ 

R2,R3 

RO,a#Ck .OCT 31S THIS AN OCTAL DIGIT? 

2% ;NO--F IND OUT WHAT IT IS 

1$ sYES--MAKE IT PART OF THE NUMBER 
R3,R2 > SAVE THE OCTAL NUMBER 

R3 START WITH ZERO INDEX 
RO,@#(K.CHR ; CHECK ONE CHARACTER 


7 ILLEGAL CHARACTER 
: CARRIAGE RETURN 
on 


:DIGI 0-9 
(R3)¢ PERIOD" 
(R1),@°. “PER IOD-PERIOD"’? 
5$ >NO--BRANCH 
R1 sYES=--ADVANCE THE POINTER 
(R3)+ :‘‘PERIOD-PERIOD" 
(R3;¢ :""COMMA’’ 
(Rt) 3“"CR''? 
6$ >NO--BRANCH 
R3,k0 sYES=--SAVE THE OCTAL NUMBER 
(SP)4+,R3 sRESTORE R35 
(RO; ,RO sPICKUP EXIT ADDRESS 
RO ;RETURN 


SEQ 0151 
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034464 000000 000000 000000 


034472 


034474 


034503 


034504 


034513 
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000000 
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tee PROGRAM SUBROUTINES *e* 


le eeeereererererereseereerrerererererereneaaeeeraeerereeeneeTetes 


-SBTTL SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) 
;COPYRIGHT (C) 1976 

DIGITAL EQUIPMENT CORP. 

sMAYNARD, MA 01754 

;AUTHOR(S): JIM LACEY/CHUCK HESS 


Ss, eererererrerereerererereererereereerenenaeteneeeeneneerenesetes 


STORAGE FOR RPDS1, RPERI, RPER2, AND RPER3 ON AN ERROR °'2"° 
SRPERRS = RPDS! 


TRPERRS#2 = RPERI 
“RPERRS#4 = RPERZ 
RPERRS*6 = RPER3 


RPERRS: .WORD 0,0,0.,0 


TABLE OF DRIVE ACTIVE INDICATORS (DRVACT=8 BYTES) 
;DRVACT=0 IF DRIVE IS IDLE 
;DRVACT>O IF DRIVE IS ACTIVE WITH A COMMAND 
;DRVACT<O IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERATION 


DRVACT: .BYTE 0 sDRIVE 0 
-BYTE 0 sORIVE 1 
BYTE 0 sDRIVE 2 
BYTE 0 sDRIVE 3 
-BYTE 0 DRIVE 4 
BYTE 0 sDRIVE 5 
-BYTE 0 DRIVE 6 
BYTE 0 sDRIVE 7 
TABLE OF DRIVE STATUS INDICATORS (DRVSTA=8 BYTES) 
;DRVSTA=0 IF DRIVE IS OFFLINE OR NONEXSITENT 
DRVSTA>O IF DRIVE 1S ONLINE 
DRVSTA<O IF DRIVE 1S UNSAFE 
DRVSTA: .BYTE 0 s DRIVE 
-BYTE 0 : DRIVE 
0 
0 
0 
0 
0 
0 


o 

=] 

@ 

_ 

< 

mn 
NOUS WR OO 


:DRIVE 


; TABLE OF sad be TYPES (DRVTYP=8 BYTES) 
sDRVTYP=0 IF DRIVE 1S NONEXISTENT (DRVSTA=0, ALSO) 
S DRVTYP= 1 IF DRIVE 1S RPO4 
:DRVIYP=2 1F DRIVE 1S RPOS 
sDRVTYP=4 If DRIVE 1S RPO6 
sDRVTYP=-1 IF NOT RPO4/5/6 


SEQ 0152 


Se eee ws «= — 


K 12 
CZRJAD RPOG/5/6 ere ii: re READ/WRITE TEST MACY11 30A(1052) 24-MAY-79 13:59 PAGE 157 


CZRJAD.P11 28-MAR- 
7956 034514 000 
7957 034515 000 
7958 034516 000 
7959 034517 000 
7960 034520 000 
7961 034521 000 
7962 034522 000 
7963 4034525 000 
7964 
7965 
7966 
7967 
7968 
7969 034524 000 
7970 034525 000 
7971 034526 000 
7972 034527 000 
7973 03453 000 
7974 034531 000 
7975 034532 000 
7976 034533 000 
7977 
7978 
7979 
7980 
7981 
7982 034534 000 
7983 034535 000 
7984 034536 000 
7985 034537 000 
7986 034540 000 
7987 034541 000 
7988 034542 000 
7989 034543 000 
7990 
7991 
7992 
7993 
7994 
7995 034544 000000 
7996 
7997 
7998 
7999 
8000 
8001 
8002 
8003 034546 000000 
8004 
8005 
8006 
8007 
8008 
8009 034550 000 
8010 


SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) SEQ 0155 


DRVIYP: .BYTE 0 DRIVE 0 
BYTE 0 ;DRIVE 1 
BYTE 0 sDRIVE 2 
BYTE 0 sDRIVE 3 
BYTE 0 sDRIVE 4 
BYTE 0 sDRIVE 5 
-BYTE 0 sDRIVE 6 
-BYTE 0 sDRIVE 7 


; TABLE OF erat PORT INITIALIZATION INDICATORS 
sDPINT=O0 IF INITIALIZATION 1S NOT ACTIVE ON THE DRIVE 
sDPINT<O IF INITIALIZATION IS IN PROGRESS 


DPINT: .BYTE 0 sDRIVE 0 
-BYTE 0 sDRIVE 1 
-BYTE 0 sDRIVE 2 
-BYTE 0 sDRIVE 3 
-BYTE 0 sDRIVE 4 
-BYTE 0O ;DRIVE 5 
-BYTE 0 :DRIVE 6 
-BYTE 0 sDRIVE 7 


; TABLE OF Nin gy DUAL PORT REQUESTS 
;DPRQS=0 IF THAT A DUAL PORT REQUEST IS NOT PENDING FOR THAT DRIVE 
‘ DPROS<O IF THAT A DUAL PORT REQUEST IS PENDING FOR THAT DRIVE 


DPRQS: .BYTE 0 DRIVE 0 
-BYTE 0 ;ORIVE 1 
-BYTE 0 sDRIVE 2 
-BYTE 0 sDRIVE 3 
-BYTE 0 DRIVE 4 
-BYTE 0 ;ORIVE 5 
-BYTE 0 :DRIVE 6 
-BYTE 0O sDRIVE 7 


rigensaikar? WAIT FLAG (TRNSWT=1 WORD) 
HIS 1S A ONE WORD QUEUE. IT WILL CONTAIN THE ADDRESS OF 
OP OF THE 1/0 OPERATION. 


TRNSWT: .WORD 0 

SEARCH WAIT KEYS (SRCHWT=1 WORD) 
THIS IS A ONE WORD QUEUE THAT WILL CONTAIN A KEY FOR EACH OF 
THE DRIVES THAT ARE PERFORMING A SEARCH COMMAND FOR THE 1/0 
;REQUEST THAT IS AT THE TOP OF THEIR REQUEST QUEUE. 
SEACH DRIVE IS ASSIGNED ONE BIT, STARTING AT BITOO FOR DRIVE 0. 

SRCHWT: .WORD 0 

;RPO4/5/6 DRIVER ACTIVE FLAG (ACTORV=1 BYTE) 

ACTORV=0 IF DRIVER IS INACTIVE 

ZACTDRV>O IF DRIVER IS ACTIVE 

ACTORV: .BYTE 0 


SOFTWARE TIMER ROUTINE ACTIVE FLAG (ACTSTR=1 BYTE) 
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] 
| 
CZRJAD.P11 28-MAR-79 11:28 SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) SEQ 0154 | 

8012 ZACTSTR=0 If SOFTWARE TIMER ROUTINE IS INACTIVE 

sie sACTSTR>O IF SOFTWARE TIMER ROUTINE IS ACTIVE 

$013 034551 000 ACTSTR: .BYTE 0 

8017 ZUNLOAD FLAG (ULDFLG=8 BYTES) 

8018 ULDFLG=C IF NO UNLOAD COMMAND 

8019 sULDFLG>O IF UNLOAD COMMAND IN PROGRESS 

aost SULDFLG<O IF UNLOAD COMMAND IN WAIT QUEUE 

8022 034552 000 ULDFLG: .BYTE 0 sDRIVE 0 

8023 034553 000 -BYTE 0 sDRIVE 1 

8024 034554 000 BYTE 0 sDRIVE 2 

8025 034555 000 -BYTE 0 DRIVE 3 

8026 034556 000 -BYTE 0 sDRIVE 4 

8027 034557 000 BYTE 0 sDRIVE 5 

8028 034560 000 -BYTE 0 ZDRIVE 6 

eee 034561 900 -BYTE 0 sDRIVE 7 

8031 LOOK AHEAD COUNT (LACNT=8 BYTES) 

44 :LACNT WILL INDICATE THE NUMBER OF LOOK AHEADS PERFORMED 

8034 034562 000 LACNT: .BYTE 0 :DRIVE 0 

8035 034563 000 -BYTE 0 :DRIVE 1 

8036 034564 000 BYTE 0 sDRIVE 2 

8037 034565 000 BYTE 0 :DRIVE 3 

8038 034566 000 BYTE 0 sDRIVE 4 

8039 034567 000 BYTE 0 sDRIVE 5 

8040 034570 000 BYTE 0 :DRIVE 6 

o0ei 034571 000 -BYTE 0 sDRIVE 7 

8043 SAVE REGISTERS FLAG (SAVEFG =1 WORD) 

8044 -SAVEFG <O IF SAVE THE RH11/RP04/5/6 REGISTERS WHEN THE 

8045 sOPERATION IS COMPLETED AS PER (DPB+14). 

8046 sSAVEFG=0 If SAVE THE RH11/RP04/5/6 REGISTERS, AS PER 

806? :(DPB+14), AFTER AN ERROR. 

4, 

vee 034572 000000 SAVEFG: .WORD 0 | 

8051 SEEK FLAG (SeERrGs 1 WORD) 

8052 sSEEKFG=0 If WHEN THE DISK ADDRESS ISN'T IN THE WINDOW 

8053 >FOR A DATA TRANSFER START A SEARCH COMMAND 

8054 >SEEKFG<O IF DATA TRANSFER WILL DO IMPLiED SEEKS, 

ares DISREGARD THE WINDOW 

3032 034574 000000 SEEKFG: .WORD 0 

8059 TIMEOUT TABLE (TIMER=8 WORDS) 

8060 ‘THIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION 

6 

8062 034576 177777 TIMER: .WORD 1 sDRIVE 0 

8063 034600 177777 WORD 1 :DRIVE 

8064 034602 177777 WORD -1 sDRIVE 2 

8065 034604 177777 WORD -1 :DRIVE 3 

8066 034606 177777 .wORD 1 :DRIVE 4 

8067 034610 177777 .wORD -1 :DRIVE 5 


SS 
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CZRJAD.P11 = 28-MAR-79 11:28 SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) SEQ 0155 
8068 034612 177777 “WORD 1 DRIVE 6 
a0? 034614 177777 -WORD  =1 DRIVE 7 
8071 DATA TRANSFER UNDERWAY INDICATOR (DTUW=1 WORD) 
8072 ;DTUW<O IF NO DATA TRANSFER UNDERWAY 
‘ oth ;DTUW=+N (WHERE N=0 TO 7) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N 
eave 034616 177777 DTuw: .WORD -1 
8077 ATTENTION BITS TABLE (ATABIT=8 BYTES 
8078 ;THIS TABLE CONTAINS THE CORRESPONDING BIT TO EACH DRIVES 
8079 ATTENTION BIT 
8080 
8081 034620 001 ATABIT: .BYTE 1 DRIVE 0 
8082 034621 002 -BYTE 2 DRIVE | 
8083 034622 004 BYTE 4 DRIVE 2 
8084 034623 010 -BYTE 10 DRIVE 3 
8085 034624 020 -BYTE 20 DRIVE 4 
8086 034625 040 -BYTE 40 DRIVE 5 
8087 034626 100 -BYTE 100 DRIVE 6 
ses 034627 200 -BYTE 200 DRIVE 7 
8090 ;RP04/5/6 TO RH11 “'MASSBUS CONTROL BUS PARITY ERRORS'’ (MCPE) ALLOWED BEFORE 
oa! ;CALLING IT FATAL (MCPEMX=1 WORD) 
ad 034630 000003 MCPEMX: .WORD 3 
8095 ;STORAGE FOR RPADR (THE FIRST ADDRESS (776700) OF THE RH11/RP04/5/6), 
8096 ;RPVEC (THE VECTOR ADDRESS (254)), AND RPVEC+2 (THE BR LEVEL (5)). 
8098 034632 176700 RPADR: .WORD 176700 
ee 034634 000254 000240 RPVEC: .WORD  254,5*32. 
S101 ;MAXIMUM NUMBER OF LOOK AHEADS ALLOWED IS 4 (MXLACT=1 WORD) 
8103 034640 000004 MXLACT: .WORD 
8106 ;MAXIMUM DELTA DELAY 1S 8 SECTORS (MXDLTA=1 WORD) 
8106 034642 001000 MXDLTA: .WORD 8. #64, 
8107 ;MINIMUM DELTA DELAY IS 2 SECTORS (MNDLTA=1 WORD) 
8109 034644 000200 MNDLTA: .WORD 2*64, 
i190 ;MAXIMUM SEARCH FOR 1/0 WINDOW 1S 5 SECTORS (MXWNDW=1 WORD) 
iF 
tH 034646 000005 MXWNDW: .WORD = 5 
Ne :DEFINITIONS OF THE RH11/RPO4/5/6 ADDRESS INDEXES 
i 

8116 000000 RPCS1=0 ;CONTROL AND STATUS REGISTER #1 (DRIVE REG. 00) 
8117 000002 RPWC=2 ;WORD COUNT REGISTER (NOT A DRIVE REG) 

| 8118 000004 RPBA=4 ;UNIBUS ADDRESS REGISTER (NOT A DRIVE REG) 
8119 000006 RPDA=6 ;DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG. 05) 
8120 000010 RPCS2=10 ;CONTROL AND STATUS REGISTER #2 (NOT A DRIVE REG) 
8121 900012 RPDS1=12 ;DRIVE STATUS REGISTER (DRIVE REG 01) 

| 8122 000014 RPER1=14 SERROR REGISTER #1 (DRIVE REG. 02) 

8123 000016 RPAS=16 ATTENTION SUMMARY PSEUDO REGISTER (DRIVE REG. 04) 
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8125 000022 RPDB=22 
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;LOOK AHEAD REGISTER (DRIVE REG. 07) 
:DATA BUFFER REGISTER (NOT A DRIVE REG.) 


8126 000024 RPMR=24 :MAINTAINABILITY REGISTER (DRIVE REG. 03) 
8127 000026 RPDT=26 DRIVE TYPE REGISTER (DRIVE REG. 06) 
8128 000030 RPSN=30 sSERIAL NUMBER REGISTER (DRIVE REG. 10) 
8129 000032 RPOF =32 OFFSET REGISTER (DRIVE REG. 11) 

8130 000034 RPCA=34 sDESIRED CYLINDER ADDRESS REGISTER (DRIVE REG. 12) 
8131 000036 RPCC=36 sCURRENT CYLINDER ADDRESS REGISTER (DRIVE REG. 13) 
8132 000040 RPER2=40 TERROR REGISTER #2 (DRIVE REG. 14) 
8133 000042 RPER3=42 sERROR REGISTER #3 (DRIVE REG. 15) 
8134 000044 RPEC1=44 sECC POSITION REGISTER (DRIVE REG. 16) 
Ree 000046 RPEC2=46 ECC PATTERN REGISTER (DRIVE REG. 17) 
8137 7RH11/RP04/5/6 DRIVER INITIALIZATION CODE 

8138 sTHIS ROUTINE WILL DETERMINE WHICH RPO4/5/6 DRIVES ARE 

8139 sAVAILABLE FOR TESTING AND SET THE DRVSTA INDICATOR 

8140 710 THE PROPER STATE FOR EACH DRIVE. 

aie3 sNOTE: THIS ROUTINE CALLS DRVINT 

8143 7 CALL 

8144 : 

8145 ; JSR PC,RPINIT 

8146 : RETURN 

8147 : 

Biee sNOTE: THE ‘P* OR °L* CLOCK MUST BE STARTED 

8150 034650 104412 RPINIT: SAVREG ;SAVE RO - R5 

8151 034652 013746 177776 MOV a#Ps,-(SP) ;SAVE THE PRESENT PROCESSOR STATUS 
8152 034656 012737 000240 177776 MOV #<5#32.>,aMPS sCHANGE THE PRIORITY TO 5 

8153 034664 004737 042664 JSR PC, CLRQUE ;CLEAR ALL REQUEST QUEUES 

8154 034670 012701 034464 MOV #RPERRS,R1 sFIRST ADDRESS TO BE CLEARED 

8155 034674 012702 034574 MOV MSEEKFG,R2 ;LAST ADDRESS TO BE CLEARED 

8156 034700 005021 1$ CLR (R1)+ CLEAR 

8157 034702 020102 CMP R1,R2 ;ARE WE DONE? 

8158 034704 101775 BLOS 1$ sBRANCH IF NO 

8159 034706 012702 034616 MOV #DTUW,R2 sLAST ADDRESS 

8160 034712 012721 177777 2$: MOV #-1,(R1)+ s INITIALIZE 

8161 034716 020102 CMP R1,R2 ; DONE? 

8162 034720 101774 BLOS 2$ :LOOP IF NO 

8163 034722 005037 034504 CLR DRVSTA sSET ALL DRIVES TO OFFLINE 

8164 034726 005037 034506 CLR DRVSTA+2 

8165 034732 005037 034510 CLR DRVSTA+4 

8166 034736 005037 034512 CLR DRVSTA+6 

8167 034742 013703 034634 MOV RPVEC,R3 :SETUP THE RH11/RP04/5/6 VECTOR 

8168 034746 012723 037544 MOV WISR,(R3)+ 

8169 034752 013713 034636 MOV ated Fi (R3) 

8170 034756 013704 034632 MOV FIRST ADDRESS OF RH11/RPO04 

8171 034762 012764 000040 000010 MOV coef mPcS2(R4)" ;MASSBUS INIT 

8172 034770 005001 CLR R1 :START WITH DRIVE 0 

8173 034772 004037 035062 3$: JSR ty DRVINT : INIT THE DRIVE 

8174 034776 000401 BR 4% "DVA' NOT SET OR PARITY ERROR 

8175 035000 000402 BR 5$ “NORMAL RETURN 

8176 035002 105061 034504 4$: CLRB DRVSTA(R1) :SET DRIVE STATUS TO OFFLINE 

8177 035006 005201 5$: INC R1 760 TO NEXT DRIVE 

8178 035010 042701 177770 BIC #*C7,R1 sMASK OUT UNUSED BITS 

8179 035014 001366 BNE 3% ;BR 1F MORE DRIVES 10 GO 


SEQ 0156" 


i ootelnentntiieestineiienneeetinementinedtial 


wn” 
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012701 


000207 
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000007 
177776 
034524 


042320 
034524 


177776 


034504 


010000 
042320 


034504 
004000 


041630 


000001 
020020 


024020 


000002 
020021 


024021 


000004 
020022 
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000000 
000010 


000000 


034514 


034514 


034514 


SINGLE/DUAL PORT RH11/RPO4/5/6 DRIVER (REV 1.0) 


6$: 


7$: 
8$: 


MOV 
RESREG 
RTS 


#7,R1 sSTART WITH DRIVE 7 

asPs CLEAR THE PROCESSOR STATUS 

DPINT(R1) WAITING FOR DRIVE TO SWITCH PORTS ? 

&$ ;BR NOT WAITING 

PC,SET.IE SET INTERRUPT 

DPINT(R1) DRIVE SWITCHED PORTS ? 

7$ :BR IF NOT 

RI ;GO TO THE NEXT DRIVE 

6$ CHECK NEXT DRIVE 

(SP)+,aaPS RESTORE THE PROCESSOR STATUS 
;RESTORE RO = R5 

PC ; BYE-BYE 


sDRIVE IMITILIZATION ROUTINE 
THIS ROUTINE DETERMINES IF A DRIVE EXIST AND IF IT IS 
7AN RPO4/5/6. IF IT 1S, A “‘READ-IN PRESET’ IS ISSUED AND FMT22 


7 CALL 


DRVINT: 


1$: 


;1S8 SET TO A ‘'l'’, THEN MOL, DPR, DRY, AND VV ARE CHECKED 10 
; INSURE THEY ARE ALL ON A ‘"l'*, AND DEPENDING ON THEIR STATE, 
;DRVSTA 1S SET TO THE PROPER CONDITION. 

MOV #ORVNUM,R1 ;ORIVE NUMBER TO RI 

MOV RPADR ,R4 ;UNIBUS ADDRESS OF RH11/RP04/5/6 (RPCS1) 
JSR RO, DRVINT CALLED BY A JSR 

RETURNI ; ERROR Oc CURRED (PARITY) 

RETURN2 ;NORMAL RETURN 

MOV R5,-(SP) 7 SAVE RS 

CLRB DRVSTA(R1) ;START DRIVE STATUS AS OFFLINE 

CLRB DRVTYP(R1) ;CLEAR THE DRIVE TYPE INDICATOR 
CLRB ULDFLG(R1) CLEAR THE UNLOAD FLAG 

MOV R1,RPCS2(R4) ;SELECT A DRIVE 

MOVB #111,RPCS1(R4) ;D0 A DRIVE CLEAR COMMAND (& SEIZE DRIVE) 
BIT #BITI2,RPCS2(R4) ;NONEXISTENT DRIVE? 

BEQ ;NO---BRANCH 

JSR PC,SET.IE 3GO SET "IE" WITHOUT A ‘‘TRE"’ 

BR 6% LEAVE THIS ROUTINE 

CLRB DRVSTA(R1) ;SET DRIVE STATUS TO OFFLINE 

BIT WBITIT,RPCSI(R4) ;SEE IF DRIVE AVAILABLE 

BEQ 7$ ;BR IF DRIVE NOT AVAILABLE 

ee RO,RD.RP ;READ THE DRIVE TYPE REG. 

8$ ERROR RETURN ADDRESS 

MOV (SP)+,R5 ;PUT DRIVE TYPE IN R5 

MOVB #1,DRVTYP(R1) ;SET RPOG INDICATOR 

CMP #20020,R5 ;1S 11 A SINGLE PORT RP04? 

BEQ 2% ;BRANCH IF YES 

CMP #24020,R5 31S 11 A DUAL PORT RPO4? 

BEQ 2$ ;BR IF YES 

MOVB #2,DRVTYP(R1)  ;SET RPOS INDICATOR 

CMP #20021,R5 ;SINGLE PORT RPOS ? 

BEQ 2$ :BR IF YES 

CMP #24021,R5 ;DUAL PORT RPOS ? 

BEQ 2$ ;BR IF YES 

MOVB #4 ,DRVTYPC(R1) SET RPO6 INDICATOR 

CMP #20022,R5 ;SINGLE PORT RPO6 ? 


SEQ 0157 


i 
eS 
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024022 
177777 
035446 
001000 
000010 
ait 


010000 
042010 


941630 


034620 


041630 


177777 


167077 


000001 


003720 
034524 
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034514 


000012 
034514 


000016 


034504 


034504 


034576 


SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) 
2% ;BR IF YES 

CMP #24022,R5 DUAL PORT RPO6 ? 
2 ;BR IF YES 

MOvB #-1,DRVTYP(R1) ;SET INDICATOR TO ‘OTHER® 
6% ZENIT 


2$: TST TSTPGM Daves oy PROGRAMMABLE DRIVE? 
BNE 9$ BRANCH IF NO 
BIT #B1TO9, RPDSI(R4);1S DRIVE PROGRAMMABLE? 
BEQ 9% ;BRANCH IF NO 
Sa + inane DRVTYP(RI); sss INDICATOR 
9$: “ MOV #121,-(SP) D0 A “"READ-IN PRESET" 
JSR RO, WRT .RP 
“a 


MOV #BiTi2, a SET FMT22=1 
JSR RO,WRT. 


RPOF 
8$ 
JSR RO,RD.RP ;READ RPDS! 
— 
MOV (SP)+,R5 sAND SAVE IT IN RS5 
BPL 4$ ;BRANCH IF ATA=0 
MOVB ATABIT(R1),RPAS(RG) ;CLEAR ATTENTION BIT 
JSR _ RO,RD.RP : FIND OUT WHY ATA=1 
RPER1 
8% 
ROL (SP)+ 1S 11 UNSAFE? 
BPL 4% ;BR IF NOT 
MOVB #-1,DRVSTA(R1) ;SET UNSAFE INDICATOR 
RR 6% sEXIT 
4$: COM R5 ;CHECK MOL, DPR, DRY, AND VV 
BIC #*(<B1112!B1108'B1107! B1T06>, R5 
BNE 6$ BRANCH IF MOL, DPR, DRY, OR vv IS CLEAR 


MOVB #1, DRVSTACR1) :SET DRIVE STATUS TO ONLINE 


6$: TST (RO)+ ;STEP OVER THE ERROR RETURN 
BR 8$ 4 pt 
7$: ASL R1 > CHANGE INDEX . 4 ADDRESS WORDS 
MOV #2000. ~ssgtepthaina? sSTART 2 SEC TIMER 
ASR R1 RESTOR E RI 
COMB DPINT(R1) 
TST (RO)* 
8$: MOV (SP)+,R5 sRESTORE R5 
RTS RO sEXIT 


TEST PROGRAMMABLE DRIVE FLAG (TSTPGM=1 WORD) 
;THE FLAG WILL BE SET BY THE PROGRAM UNDER 
MANUFACTURING CONDITIONS (ACT,APT) AND 
;CLEARED UNDER FIELD CONDITIONS(XXDP CHAIN, 
STANDALONE) WITH STARTING ADDRESS 200. 
;THE FLAG WILL BE SET UNDER ALL CONDITIONS 
sWITH STARTING ADDRESS 220. 


TSTPGM: .WwORD 0 7=1 TEST PROGRAMMABLE DRIVE 


SEQ 0158 


ee ee a + Ce SC ee 
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002 


WOW FW 
So 
co 
~ 


—-o-o-00—-00 
oO 
+ 
Pa 


w 
~“ 
oa 
a 


001007 
012762 


177776 
034636 
000001 
000016 


034652 
034504 


034552 
034524 
035062 
034504 
034534 


000010 
042762 


000103 


177777 
034474 


035742 
120000 
037052 
042762 
000100 
042520 
034504 


140000 
034514 


100002 


177776 
034550 


060002 
034552 


000016 


000016 


000016 


CALL 


RPO4: 


2$: 


3$: 


4$: 
5$: 


6$: 
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REQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST 


JSR 
PNTAD 
RETURNI 
RETURN2 


RO, a#RPO4 ;CALL THE RPO4/5/6 DRIVER 
ADDRESS OF POINTER OF DRIVES PARAMETER BLOCK 
RETURN HERE IF QUEUE IS FULL 


RETURN HERE IF REQUEST IS IN QUEUE OR THERE 
71S AN ERROR CONDITION 
aaPs,- (SP) ;SAVE THE CALLING STATUS 
RPVEC+2,aaPS DON'T ALLOW ANY RPO4/5/6 INTERRUPTS 
#1,ACTDRV 7SET “ACTIVE DRIVER’ FLAG 
: SAVE RO - RS 
(RO) ,R2 sPICKUP THE DRIVE PARAMETER BLOCK POINTER 
16(R2) ;CLEAR THE STATUS/ERROR INDICATOR 
(R2),R1 sPICKUP THE DRIVE NUMBER 
RPADR,R4S sUNIBUS ADDRESS OF RPCS1 
DRVSTA(R1) ;CHECK DRIVES STATUS 
1$ ;BRANCH IF ONLINE 
ULDFLG(R1) sUNLOAD COMMAND IN QUEUE? 
3$ ;BRANCH IF YES 
DPINT(R1) s TRYING TO INIT THE DRIVE 
5$ ;BR IF YES 
RO,DRVINT 5GO INIT. THE DRIVE 
4% sERROR RETURN 
DRVSTA(R1) 71S DRIVE STATUS ONLINE? 
6$ : BR If NOT 
DPRQS(R1) sOUTSTANDING PORT REQUEST FOR THE DRIVE ? 
5$ ;BR IF YES 
R1,RPCS2(R4) SELECT THE DRIVE 
RO, DRVQUE sPUT THIS REQUEST IN QUEUE 
9% ;QUEVE IS FULL 
#103,2(R2) 31S THIS REQ. FOR AN UNLOAD? 
2$ ‘BR IF NO 
#-1,ULDFLG(R1) ;SET THE “UNLOAD IN QUEUE" FLAG 
DRVACT(R1) 31S THIS DRIVE ACTIVE? 
8% ‘BR IF YES 
_—" sCALL THE OPTIMIZER 
- ehialatlaacaaiar ¢ geet THE "UNLOAD IN QUEUE’ ERROR FLAG 
sEXl 
oc eth? :GO HANDLE THE PARITY ERROR 
RO,DRVQUE ;PuT ee - QUEUE 
9$ s QUEUE 1S S FU 
#B1106, (R4) 71S "IE" SET ALREADY ? 
8$ ;BR IF IT IS 
PC,SET.IE ;SET INTERRUPT 
8$ RETURN, REQUEST IN QUEUE 
DRVSTACR1) > SEE IF DRIVE OFFLINE OR UNSATE 
7$ >BR IF UNSAFE 
MBITIS'BI114,16(R2) ;SET OFFLINE ERROR INDICATOR 
DRVTYPC(R1) sS€e If tt ny OR NONEXISTENT 


8$ ;BR IF OFFLINE 
MBITIS'BITO1,16(R2) ;REPORT DRIVE NONEXISTENT 


SEQ 0159 
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004000 
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140000 
034504 
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000111 
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000150 
036436 
034616 
034574 
037406 
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SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) 


BR 8$ 3:60 10 EXIT 
7$: MOV #BITIS'BIT12,16(R2) ;DRIVE 1S UNSAFE 
8$: RESREG RESTORE RO = RS 
T (RO)+ ;SETUP FOR NORMAL RETURN 
BR 10% FINISH UP, THEN EXIT 
9$: RESREG ;RESTORE RO - R5 
108: TST (RO)+ ;CORRECT THE RETURN ADDRESS 
CLRB ACTORV 7CLEAR “ACTIVE DRIVER’ FLAG 
MOV (SP)+,aaPS ;RETURN ‘PS’ TO USER LEVEL 
RTS RO ;RETURN TO CALLER 
sOPTIMIZER=CALLED FOR A PARTICULAR DRIVE 
3; CALL 
5 MOV #DRVNUM,RI sDORIVE NUMBER TO RI 
; JSR PC,OPT ;SETUP A COMMAND 
OPT: SAVREG ;SAVE RO - RS 
MOV aaPs,-(SP) ;SAVE PROC. STATUS 
BiCB ATABIT(R1), SRCHWT ;CLEAR ‘"SEARCH WAIT" KEY 
JSR PC,GETREQ 3GET DPR" POINTER OF REQUEST 
TST R2 71S THERE A REQUEST IN QUEUE? 
BEQ 7$ :NO--BRANCH TO EXIT 
BIT MBITIT,RPCSI(RG) ; 1S DVA STILL SET ? 
BEQ 10% ;BR IF NOT 
BIT MBIT6,RPOSI(R4) ;1S vv SET ? 
BNE 10% BR If IT 1S 
9$: JSR RO,ORVINT SEE 1— DRIVE STILL ONLINE ? 
BR 6$ =PARITY OR ‘DvA‘ NOT SET 
108: TSTB DRVSTA(R1) 1S DRIVE ONLINE? 
BGT 1$ :YES~-BRANCH 
JSR PC ,POPQUE NO--REMOVE REQUEST FROM QUEUE 
MOV #BiT15:! BIT14, 16(R2) sSET OFFLINE STATUS/ERROR INDICATOR 
TSTB DRVSTA(R1) 31S DRIVE UNSAFE ? 
BPL 8% “BR TO EXIT IF NOT 
MOV #BITIS!BITI12, 16(R2) 7SET UNSAFE STATUS/ERROR INDICATOR 
BR 8$ 3 BR ANCH TO EXIT 
1$ MOV #111,-(SP) LOAD COMMAND ONTO THE STACK 
JSR RO,WRT.RP ;LOAD THE REGISTER 
RPCS1 sREGISTER INCREMENT 
6$ sERROR RETURN ADDRESS 
BIT #BIT11,(R4) sDRIVE AVAILABLE ? 
BEG 5$ ;BR IF NOT 
CMPB #150,2(R2) 71S THE REQUEST FOR 1/0? 
BLT 23 > YES--BRANCH 
JSR PC,C14 > CALL THE COMMAND INITIATOR 
BR 8$ sBRANCH TO EXIT 
2$: TST DTUW ;DATA TRANSFER UNDERWAY? 
BGE 4% sYES--GO START A SEARCH 
TST SEEKFG ;D0 IMPLIED SEEKS? 
BM] 3$ 3 YES---BRANCH 
JSR RO,LA ;NO--DO LOOK AHEAD 
BR 8$ sRETURN HERE ON A PARITY ERROR 
BR 4% :GO START A SEARCH 
3$: JSR a ott > START A DATA TRANSFER 
BR 


SEQ 0160 
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000207 
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116203 


036330 
177777 


023420 


037052 
000100 


042320 
177776 


043060 
034544 


034632 
000010 
000004 
000002 


042010 


042010 


000002 
042010 


034616 


042010 


000010 


034534 


034576 
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SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) 


4%: 
5$: 


6$: 
7$: 


8$: 


JSR 


PC.CIS 
$ 


R3 
#10000., 
7$ 
PC,CI7 
#B1106,(R4) 
8$ 
PC,SET.IE 
(SP)+,aaPs 
PC 


> COMMAND INITIATOR 


CALL 


C]1: 


(13: 


MOV 
MOV 
JSR 


#ORVNUM,R1 
#D0PB,R2 
PC,C1? 


PC ,POPQUE 
R2,TRNSWT 
R2,R5 

RPADR ,R4 
R1,RPCS2(R4) 
#4 RS 
#2,R4 
(R3)4+,(R4)+ 
(R35) +, (R4)+ 
(R3)+,-(SP) 
RO,WRT.RP 


(R3)+,-(SP) 
RO,WRT.RP 


2(R2),-(SP) 
RO,WRT.RP 


R1,0TUW 

C15 
RPADR,R4 
R1,RPCS2(R4) 


12(R2),-(SP) 
RO .WRT RP 


1O(R2),R3 


7 START 
;GO TO THE EXIT 


8 : 
yl depmetanics ;SET PORT REQUEST INDICATOR 


; CON 
TIRERCRS) 


; LOAD 


A SEARCH 


;SET UP TO ADDRESS WORDS 
NVERT TO WORD INDEX 
* jaesee 10 SEC TIMER 


PROCESS THE PARITY ERROR 
SEE IF "1E* ALREADY SET 
;BR IF SET 

;SET "IE" WITHOUT 
RESTORE PROC. 
;RESTORE RO - R5 


A “"TRE’ 
STATUS 


;DRIVE NUMBER 
ADDRESS OF DPB 
A I OR Ci4 


; WHERE: 

;CI11=DATA TRANSFER 

7C12=SEARCH REQUESTED BY DATA XFER 
;C14=NOT DATA TRANSFER 


REMOVE REQUEST FROM ‘DRIVES WAIT" 
;PuT REQ. 
;DPB ADDRESS TO R3 

;RPCS1 ADDRESS 

;SELECT DRIVE 

;DESIRED WORD COUNT 

;RPWC ADDRESS 

;LOAD WORD COUNT 

;LOAD BUFFER ADDRESS 

;LOAD SECTOR AND TRACK 

;CALL THE LOAD(WRITE) ROUTINE 
; INDEX OF REGISTER TO LOAD 
ERROR RETURN ADDRESS 

;LOAD CYLINDER ADDRESS 


QUEUE 
IN TRANSFER WAIT QUEUE 


“*COMMAND+G0"", "'A178A16"", AND “‘PSEL* 


SET “DATA TRANSFER UNDERWAY" 


:RPCS1 ADDRESS 
SELECT DRIVE 
DESIRED CYLINDER ADDRESS 


PICKUP SECTOR ADDRESS 


SEQ 0161 


ee a ee = ee od 


CZRJAD RPOG/S/6 MECHANICAL yy READ/WRITE TEST 


CZRJAD.P11 


0366 34 


28-MAR-79 11: 


163703 


122703 


034646 
000026 
000011 
042010 


000131 
042010 
034620 
034632 
000010 
000002 
000131 


900010 
042010 


000105 


000012 
042010 


000115 
041630 


000001 
042010 


000107 
000117 
000103 
000001 
034504 
000001 


042010 


000143 


000001 


034546 


034474 
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SINGLE/DUAL PORT RK11/RP04/5/6 DRIVER (REV 1 


1$: 


2$: 


3$: 


4$: 


5$: 


MXWNDW,R3 
1$ 


. 
110R2),1¢5P) 
RO, WRT RP 


#171,-(SP) 
RO,WRT.RP 


ATABIT(R1),SRCHWT 
cis 


;RPCS1 ADDRESS 

;SELECT DRIVE 

;PICKUP THE REQUESTED COMMAND 
:1S IT A SEARCH COMMAND? 
;BRANCH IF NO 

;LOAD DESIRED TRACK & SECTOR 


RPADR ,R4 
R1,RPCS2(R4) 
2(R2) ,R3 
#131,R3 

1$ 


10(R2),=(SP) 
RO,WRT.RP 


2$ 
#105,R3 
3$ 


12(R2),-(SP) 
RO,WRT RP 


C16 
#115,R3 
4% 
RO,RD.RP 


1(R2), (SP) 
RO,WRT RP 


C16 
#107,R3 
C16 
#117,R3 
C16 
#105,R3 
5$ 


#1 ,DRVACT(RI) 
DRVSTA(R1) 
#1,ULDFLG(R1) 
R3,-(SP) 
RO,WRT.RP 


PC 
#145,R3 


;BACKUP BY MAX. 


; COMBINE THE ADJUSTED SECTOR WITH 
THE DESIRED TRACK 
LOAD DESIRED TRACK & SECTOR 


START A SEARCH 


7SET ""SEARCH WAIT" KEY 


:GO LOAD CYLINDER 

:1S 11 A SEEK COMMAND 
;BRANCH IF NO 

;LOAD DESIRED CYLINDER 


71S 17 AN ‘‘OFFSET'’ COMMAND? 

BR IF NO 

;MERGE THE OFFSET VALUE INTO RPOF 
;BUT DON'T CHANGE THE UPPER 


;BYTE WHEN LOADING THE 
REGISTER (RPOF) 


3;GO START THE COMMAND 
318 IT A “'RECALIBRATE' 
;BRANCH IF YES 

31S 117 A RETURN TO CENTER? 
sBRANCH IF YES 

71S 17 AN “‘UNLOAD' 
;BRANCH IF NO 

7SET THE DRIVE ACTIVE INDICATOR 
:PUT DRIVE STATUS TO OFFLINE 
:SET “UNLOAD IN PROGRESS" FLAG 
sSTART THE ‘‘UNLOAD'’ COMMAND 


COMMAND ? 


COMMAND ? 


RETURN TO USER 
1S 17 A “'SET FORMAT’’ COMMAND? 


SEARCH FOR 1/0 WINDOW 


SEQ 0162 
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CZRJAD.P11 28-MAR-79 11:28 SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) SEQ O10" 
8516 036640 001014 BNE 6% ;BRANCH IF NO 
8517 036642 004037 0416350 JSR RO,RD.RP sREAD THE OFFSET REGISTER 
8518 036646 000032 RPOF 
8519 036650 037052 C17 
8520 036652 116266 600001 000001 MOvB 1(R2),10SP) :COMBINE “‘FMT22°°,""ECI’’, AND “HCI” 
8521 036660 004037 042010 JSR RO,WRT RP sLOAD “'FMT22°*, “‘ECI’’, AND/OR “‘HCI"’. 
8522 036664 000032 RPOF 
8523 036666 037052 C17 
8524 036670 000436 Bie 12% 
8525 036672 122703 000141 63%: CMPB #141,R3 71S IT A "GET REGISTER’’ COMMAND? 
8526 036676 001023 BNE 10% ;BRANCH IF NO 
8527 036700 016203 000006 7$: MOV 6(R2) R35 sPOINTS TO 1ST ADDRESS OF WHERE 
8528 :10 PUT THE REGISTER(S) 
8529 036704 116237 000010 036722 MCvB 10(R2) ,9% s INIT. THE INDEX FOR THE FIRST REG. 
8530 036712 116205 000011 MOvVB 110R2),R5 s INDEX OF LAST REG. TO MOVE 
8531 036716 004037 041630 8$: JSR RO,RD.RP READ RP04/5/6 REGISTER 
8532 036722 000000 9$: RPCS1 > INDEX OF REG. TO READ 
8533 036724 037052 C17 
8534 036726 012623 MOV (SP)+,(R3)¢ 7GET THE CONTENTS OF RH11/RP04/5/6 REG. 
8535 036730 023705 936722 CMP 9$,R5 7LAST REG. BEEN READ? 
8536 036734 001414 BEQ 12% 7GET OUT IF YES 
8537 036736 062737 000002 936722 ADD #2,9% > INCREASE THE INDEX BY 2 
8538 036744 000764 BR 8$ s;LOOP--MORE TO READ 
8539 936746 122703 000145 108: CMPB #145,R3 :1S8 IT A “’SELECT DRIVE*’ COMMAND? 
8540 036752 001405 BEQ 12% ;BRANCH IF YES 
8541 036754 010346 11$: MOV R3,-(SP) :LOAD THE COMMAND 
8542 036756 004037 042010 JSR RO,WRT.RP 
8543 036762 000000 RPCS1 
8544 036764 037052 
8545 036766 004737 043060 12$: JSR PC ,POPQUE sREMOVE REQ. FROM QUEUE 
8546 036772 052762 000200 000016 BIS #B1T07,16(R2)  ;SET THE ‘‘DONE’’ BIT 
8547 037000 005737 034572 TST SAVEFG 7SAVE THE RH11/RP04/5/6 REGISTERS? 
8548 037064 100 102 BPL 13% :BRANCH IF NO 
854y 3357006 004737 042202 JSR * papamateh :YES--GO SAVE THE REGISTERS 
8550 037012 000207 13$: RIS a! RETURN TO USER 
8551 037014 006301 C15: ASL 
8552 037016 012761 001750 034576 MOV #1000. ,TIMER(RI> 7SET A ONE SECOND TIMER 
8553 037024 006201 ASR 
8554 037026 112761 000001 034474 MOVB 4 /DRVACTC(RI) :SET THE DRIVE ACTIVE 
8555 037034 000207 RTS PC sRETURM TG THE USER 
8556 037036 010346 (16: MOV R3,-(SP) sLOAD THE COMMAND 
8557 037040 004037 042010 JSR RO,WRT.RP 
8558 037044 000000 RPCS1 
8559 037046 037052 C17 
8560 037050 000761 KR C15 
8561 037052 032764 010000 000010 (C!7: BIT MBITIZ,RPCS2(R4) sDRIVE NON-EXISTENT ? 
8562 037060 001034 BNE (18 :BR IF YES 
8563 037062 005702 1$: TST R2 sANYTHING IN QUEUE ? 
8564 037064 001405 BEQ (178 ;BR IF NOT 
8565 037066 012762 104000 000016 MOV #BITIS'BIT11,16(R2) SET "'PARITY'’ ERROR INDICATOR 
8566 037074 004737 042202 JSR PC,SVRH11 :GO0 SAVE THE RH11/RP04/5/6 REGISTERS 
8567 037100 012746 000111 (178: MOV #i11,-(SP) :D0 A "DRIVE CLEAR" 
8568 037104 004037 042010 JSR RO, WRT .RP 
8569 037110 000000 RPCS1 
8570 037112 037152 (18 
8571 037114 006737 042742 JSR PC ,EMPTYQ EMPTY THE QUEUE 
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000207 


034552 
034474 
034616 


034544 
177777 


010000 


034474 


034544 
034616 


043036 


010000 
100002 


102000 
042202 
177777 
034474 
034616 


177777 
034544 
934552 
010000 


000002 
177770 


177777 
034544 
042664 
000040 
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034514 
042320 


READ/ WRITE TEST 


034616 
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000010 
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000016 
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000010 


034016 
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SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) 


CLRB ULDFLG(RI? :CLEAR THE UNLOAD IN QUEUE FLAG 
CLRB DRVACT(R1) sDRIVE IS IDLE 
CMP R1,0TUW s1f THIS DRIVE HAD AN 1/0 REQUEST 
BNE i$ 7 1N PROGRESS CLEAR ALL OF THE FLAGS 
CLR TRNSWT 
MOV #-1,01TUW 
1$ RTS PC 
(18 SAVREG SAVE RO = RS 
BIT MBITIZ,RPCS2(R4) 51S “NED® SET ? 
BNE 1$ ;BR IF YES 
CLR R1 
CLR R3 
1$ TSTB DRVACT(R1) DRIVE ACTIVE? 
BEQ 5$ sBRANCH IF NO 
MOV TRNSWT,R2 :GET THE ‘TRANSFER WAIT’ QUEUE 
CMP R1,D0TUW sDID THiS DRIVE HAVE AN 1/0 IN PROGRESS? 
BEQ sBRANCH IF YES 
JSR PC ,GETREQ :GET THE DPB POINTER 
23: TST R2 QUEUE ENTRY FOR DRIVE ? 
BEQ 4% ;BR IF NOT 
31T MBITIZ,RPCS2(R4) ;"NED' SET ? 
BEQ ;BR IF NOT 
ty > Sahel -16¢R2) wine "DRIVE NON-EXISTENT’ INDICATOR 
B NU 
3$: MOV #BIT15'B1110, 16cho) SET "'NON-CLEARABLE PARITY‘’ ERROR INDICATOR 
JSR PC,SVRH11 : SAVE RH11/RP04/5/6 REGISTERS 
4$: MOV #-1, TIMER(R3) :STOP THE TIMER 
CLRB DRVACT(R1) SET ‘DRIVE ACTIVE’ TO IDLE 
CMP R1,DTUW :1S THIS DRIVE SETUP FOR A TRANSFER 
BNE 5$ =BR IF NOT 
MOV #-1,0TUW RESET THE INDICATOR 
CLR TANSWT :CLEAR THE TRANSFER QUEUE 
5$: CLRB ULOFLG(R1) >CLEAR UNLOAD FLAG 
BIT #BIT1Z2,RPCS2(R4) ;"NED’ SET ? 
BNE 6$ :BR IF YES 
INC R1 sMOVE TO THE NEXT DRIVE 
ADD #2,R3 
BIC #*C7,R) 
BNE 1$ :BRANCH IF MORE DRIVES 
MOV #-1,0TUW :NO DATA TRANSFERS UNDERWAY 
CLR gee :CLEAR THE ‘TRANSFER WAIT" QUEUE 
JSR PC, :CLEAR ALL OF THE REQUEST QUEUES 
MOV sei ies. WPCSZ (RG? 7D0 A MASSBUS iNIT. 
ia 7$ : CONT INUE 
6$: JSR PC,EMPTYO :CLEAR THE DRIVE'S QUEUE 
CLRB DRVSTA(R1) :SET DRIVE TO OFFLINE 
CLRB DRVTYP(R1) :CLEAR THE DRIVE TYPE INDICATOR 
7$: JSR PC,SET.IE sSET ‘IE’ WITHOUT “TRE” 
RESREG sRESTORE RO - R5 
S$ PC RETURN 
sLOOK AHEAD ROUTINE 
2 CALL 
: MOV #DRVNUM,RI ;DRIVE NUMBER 
: MOV #DPB,R :POINT TO DPB 


SEQ 0164 


A TS SS NS ee SSS ss Ss ss ss ss sss ls ihre si ~~ reese ssn 
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037406 
8634 037412 
037416 
037422 
037424 
037426 


037432 


037542 


037544 


037606 


037610 
037614 
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013704 


010164 


022662 
001037 


000200 


112737 


034632 
000010 
041630 


000012 
034562 


034562 
000010 


000340 
041630 


002600 
034642 


034644 
034562 


037052 


000001 


034632 
034616 


037610 
037750 
034550 


034640 


177776 


034550 


034616 


; JSR RO,LA 

é RETURN] 

; RE TURN2 

; RETURNS 

LA: MOV RPADR,RG 
MOV R1,RPCS2(R4) 
JSR RO,8D.RP 
RPCC 
4% 
CMP (SP)4#,12(R2) 
BNE 3$ 
INCB LACNT(R1) 
CMPB LACNT(R1),MXLACT 
BGT 2% 
MOVB 10(R2) ,R3 
SWAB R3 
ASR R3 
ASR R3 
MOV #340,aaPS 
JSR RO,RD.RP 
RPLA 
4% 
SUB (SP)+,R3 
BGE 1$ 
ADD #<22.*64.>,R3 

1$: CMP MXDLTA,R3 
BLT 3$ 
CMP MNDLTA,R3 
BGE 3% 

2$: CLRB LACNT(R1) 
TST (RO)+ 

3$: TST (RO)+ 
BR 5$ 

4$: JSR PC,C17 

5$: RTS RO 

s INTERRUPT SERVICE ROUTINE 

1SR: MOVB #1,ACTDRV 
SAVREG 
MOV RPADR,RG 
MOV DTUW,R1 
BLT 1$ 
JSR PC,1D 
BR 2% 

1$: JSR PC,SC 

2s: RESREG 
CLRB ACTDRV 
RT] 


MACY11 30A(1052) 
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; TRANSFER DONE ROUTINE 


TD: 


CLRB 
MOV 


DRVACT(R1) 
#-1,0TUW 


ov * 
24-MAY-79 
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:GO CHECK THE WINDOW 
ZERROR RETURN 
START A SEARCH 


START A DATA TRANSFER 


GET RPCS1°S ADDRESS 
SELECT DRIVE 
;READ CURRENT CYLINDER 


ERROR RETURN ADDRESS 

71S CURRENT CYLINDER=DESIRED 
CYLINDER? 

EXIT IF NO 

> INCREMENT THE LOOK AHEAD COUNT 


sEXCEED MAX? 
:BR ANCH IF YES 
:GET DESIRED SECTOR ADDRESS AND 
;MULT. BY 64--ALIGN WITH 


[LOOK AHEAD REGISTER 


PRIORITY LEVEL °'7"’ 
;READ LOOK AHEAD REGISTER 


; CALCULATE THE DELTA 


MAKE THE DELTA POSITIVE 
CHECK THE DELTA TO SEE 
:1F IT 1S WITHIN THE 
sWINDOW---IF YES, ZERO 
>THE LOOK AHEAD COUNT 
;AND TAKE THE 1/0 EXIT 


;ADJUST THE RETURN ADDRESS 


sEXIT 
;PROCESS THE ERROR 
; RETURN 


:SET “ACTIVE DRIVER" FLAG 
;SAVE RO - R5 

;ADDRESS OF RHSCS1 

7GET ‘DATA TRANSFER UNDERWAY’’ INDICATOR 


>BRANCH IF NO DATA TRANSFER UNDERWAY 
ati: TRANSFER DONE 


sEX] 
;CALL SPECIAL CONDITIONS 
s RESTORE R5 


RO - 
CLEAR “ACTIVE DRIVER’ FLAG 
sRETURN 


SET DRIVE ACTIVE INDICATOR TO IDLE 
7NO DATA TRANSFERS UNDERWAY 


SEQ 0165 


ee | 
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000400 


116403 


000137 


177777 
034544 


041630 


034572 


042202 
035742 


000113 
100100 
2 


000113 


000016 
041630 


043122 
042320 


000001 


034524 


040742 
034534 


040742 


034576 


000016 


000016 
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SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1 


; SPECIAL CONDITION ROUTINE 
RPAS(R4),R3 
2$ 


SC: 


1$: 


R1 
#-1, TIMERC(RI) 
R1 


TRNSWT,R2 
TRNSWT 


#B1T07,16(R2) 
R1,RPCS2(R4) 


RO,RD.RP 


(SP) + 

3% 
SAVEFG 
1$ 

PC, SVRH11 
PC OPT 


sc 
#113, (R4) 
sc 


#B1T15! — 16ck2) 


PC,EMPTYQ 
PC, SVRH11 


#40111, (R4) 


#113, (R4) 
sc 


RO,RD.RP 


(SP)+ 

1$ 
iene 
PC,SET.IE 
PC 


PC 
DPINT(R1) 
1$ 


$(13 
DPROQS(R1) 
2$ 


$(13 


CANCEL TIMEOUT 


;GET *DPB’’ ADDRESS FROM THE 
; TRANSFER WAIT QUEUE--CLEAR QUEUE 
:SET DONE 


:SELECT THE DRIVE 
; TRANSFER ERROR(TRE=1)? 


;BR IF YES 

SAVE THE RH11/RP04/5/6 REGISTERS? 
BRANCH IF NO 

7 YES--SAVE THE REGISTERS 

;CALL OPTIMIZER 

;CHECK OTHER DRIVES 


ate t THE DRIVE 
HECK FOR OTHER DRIVES 
;SET DATA ERROR FLAG 
;EMPTY THE “DRIVE'S WAIT’ QUEUE 


:SAVE THE RH11/RP04/5/6 REGISTERS 
ISSUE A ‘‘DRIVE CLEAR" 

; ISSUE A RELEASE TO THE DRIVE 

; CHECK FOR OTHER DRIVES 


READ ‘'RPAS"* 
:BRANCH IF ANY ‘ATA’ BITS SET 
sREAD CONTROL AND STATUS REGISTER 


s1S “IE'=1? 
:;YES, NO DRIVES TO CHECK 
SAVE THE ADDRESS IN ‘SESCAPE’ 


REPORT AN ILLEGAL INTERRUPT 
;SET INTERRUPT ENABLE 

; RETURN 

ag ty sete DRIVES THAT HAVE 
7 AN ' 


sATA=1? 
7 YES--BRANCH 
sMOVE TO THE NEXT DRIVE 


;BRANCH IF MORE 10 CHECK? 
;CLEAN OFF THE STACK 


;RETURN TO USER 
INITIALIZING THE DRIVE ? 
:BR IF NOT 

PROCESS THE DRIVE 

:PORT REQUEST OUTSTANDING ? 


:BR 1F NOT 
sSTART THE OUTSTANDING COMMAND 


SEQ 0166 


; 
| 
TT SS SE ~via hse =e st eth essen nares al 
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8786 040272 006126 ROL (SP)+ ;WAS THERE AN ERROR? 

8787 040274 100407 BMI 1$ ;BR IF ERROR 

8788 040276 105761 034474 TSTB hv ite pig DRIVE*S STATE 

8789 040302 003137 BGT (11 R IF DRIVE ACTIVE WITH ORDER 

8790 040304 052762 100210 000016 BIS mBLN15: 'BIT107! Birds. 16(R2) ; INFORM USER OF ERROR RECOVER COMPLETION 


8792 040314 004037 041630 1$: JSR RO,RD.RP ;READ ERROR REGISTER #1 


8795 040324 012605 MOV (SP)¢#,R5 ;AND SAVE IT IN R5 


CIRIAD. Pil 28-MAR-79 11:28 SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) F SEQ 0167 
8740 040062 105761 034504 2$: TSTB DRVSTAC(R1) CHECK THE DRIVE STATUS 
8741 040066 003025 BGT 5% ;BRANCH IF ONLINE 
8742 040070 105761 034552 TSTB ULDFLG(R1) ;UNLOAD IN PROGRESS? 
8743 040074 003422 BLE 5% ;BRANCH IF NOT 
8744 040076 004737 043036 JSR PC ,GETREQ ;GET DPB POINTER 
8745 040102 004737 042202 JSR PC, SVRH11 7SAVE THE RH11/RP04/5/6 REGISTERS 
8746 040106 004737 040672 JSR PC,SCI2 :SAVE RPDS1, RPERI, RPERZ, AND RPER3 
8747 ALSO DO A DRIVE INIT (DRVINT) 
8748 040112 105761 034504 TSTB DRVSTA(R1) ;01D DRIVE COME ONLINE? 
8749 040116 003416 BLE 6% ;NO---BRANCH 
8750 040120 032737 040000 034464 BIT MBITIG,RPERRS  ;WAS THERE AN ERROR? 
8751 040126 001002 BNE 3$ :BR IF ERROR 
8752 040130 000137 040602 JMP $c11 :NO ERROR 
8753 040134 013705 034466 3$: MOV RPERRS*+2,R5 7YES == PICKUP RPER1 AND 
8754 040140 000502 BR SCOA :GO PROCESS THE ERROR 
8755 040142 105761 034474 5$: TSTB DRVACT(R1) [DRIVE ACTIVE WITH COMMAND OR ERROR RECOVERY ? 
8756 040146 001033 BNE $C6 ;BR IF EITHER 
8757 040150 004737 040672 JSR PC,SC12 SAVE RPDS1, RPER1, RPER2, AND RPERS 
8758 ALSO DO A DRVINT 
8759 040154 105761 934524 6$: TSTB DPINT(R1) TRYING TO INIT THE DRIVE ? 
8760 040160 001321 BNE $C4 :BR IF YES, CHECK ON MORE DRIVES 
8761 040162 105761 034504 TSTB DRVSTA(R1) [CHECK ON DRIVE'S STATUS 
8762 040166 100412 BMI 7$ ;BR IF UNSAFE 
8763 040170 032737 020000 034472 BIT #BIT13,RPERRS*6 ;ADDRESS PLUG CHANGED ? 
8764 040176 001013 BNE 8$ ;BR IF YES 
8765 040200 012746 000113 MOV #113,-(SP) ;RELEASE COMMAND 
8766 040204 004037 042010 JSR RO,WRT.RP WRITE THE COMMAND INTO RPCS1 
8767 040210 000000 RPCS1 REGISTER INDEX 
8768 040212 040552 $c8 ;PARITY EXIT ADDRESS 
8769 040214 011605 7$: MOV (SP) ,R5 PICKUP (RPAS) BEFORE THE ERROR CALL 
8770 040216 004037 043122 JSR RO,ES.SAV ;SAVE THE ADDRESS IN ‘"SESCAPE* 
8771 040222 104002 ERROR 2 REPORT THE UNEXPECTED ATTENTION 
8772 040224 000677 BR $C4 GO CHECK FOR MORE ATA'S | 
8773 040226 8$: 
8774 040226 004037 043122 JSR RO,ES.SAV 7SAVE THE ADDRESS IN "SESCAPE' 
8775 040232 104005 ERROR 5 REPORT THE ADDRESS PLUG CHANGE 
8776 040234 000673 BR SC4 ;CHECK FOR MORE DRIVES 
8777 040236 006301 SC6: ASL R1 SETUP TO ADDRESS WORDS 
8778 040240 012761 177777 034576 MOV #-1,TIMER(R1)  ;STOP THE TIMER 
8779 040246 006201 ASR R1 RESTORE THE DRIVE ADDRESS 
8780 040250 004737 043056 JSR PC,GETREQ GET THE ue POINTER FROM THE QUEUE 
8781 040254 010164 000010 MOV R1,RPCS2(R4) SELECT DRI 
8782 040260 004037 041650 JSR RO,RD.RP sREAD THE RP OG" S STATUS REG. 
8783 040264 000012 RPCS1 
8784 040266 040552 6 
8785 040270 011605 MOV (SP) ,R5 ;AND PUT IT IN RS 
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8796 040326 004737 042202 
000111 
042010 


100240 
041630 


177777 
042202 
110000 


010000 


177777 
000001 


072460 


040024 
100220 
034474 
042742 
034552 


034552 
034620 
034504 


000113 
042010 


040024 
034474 


043036 
037052 


037100 
040024 
034552 


034552 
034474 


136137 034620 


READ/WRITE TEST 


000016 


034504 
000016 


034474 
034504 


034576 


000016 


000016 


034546 


SCO6A: 


2$: 


3$: 
SC7: 


1$: 


MACY11 30A(1052) 
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PC,SVRH11 
#111,-(SP) 
RO,WRT RP 


S 
+4 ici 
RO,RD.RP 


(SP) ,R5 
(SP)+ 


2$ 
#-1 ete pacity 


PC, SVRH11 
weitls' BIT 


$¢7 
#B1T12,R5 
3$ 


#-1 ,DRVACT 
eecinan 


1 
#30000.,11 
R1 
$C4 
#BITIS!BIT 
DRVACT(Ri) 
PC,EMPTYQ 
ULDFLG(R1) 
1$ 
ULDFLG(R1) 
ATABIT(R1), 
DRVSTA(R1) 


2$ 
#113,-(SP) 
RO,WRT.RP 


$C4 
eeiiantee 


$ 
PC ,GETREQ 
+ ad 


$ 
PC,C17B 
$C4 
ULDFLG(R1) 
1$ 
ULDFLG(R1) 


DRVACT(R1) 
ATABIT(R1), 


m 13 
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;SAVE RH11/RP04/5/6 REGISTERS 
; ISSUE A DRIVE CLEAR 


sWAS ‘‘UNSAFE'’ CONDITION =1? 
;BRANCH IF YES 
sANYTHING IN QUEUE ? 


BR IF NOT 
07!B1105,16(R2) ; INFORM USER OF ERROR 
;READ DRIVE STATUS REG. #1 


Hope: Fa sot IN R5 


‘BR. tf NO--UNSAFE CLEARED 

DRIVE IS UNSAFE 

; SAVE RH11/RP04/5/6 REGISTERS 
12,16(R2) 7 INFORM USER OF UNSAFE ERROR 


:""MOL"’ = 1 ? 


7BR IF YES 
(R1) ;ACTIVE ERROR RECOVER 
R1) ; ONLINE 


MER(R1) ;START 30 SECOND TIMER 


07!B1104,16(R2) : INFORM USER OF ERROR 
DRIVE IS IDLE 
;DUMP THE QUEUE 
;UNLOAD IN PROGRESS OR QUEUE? 
:BR IF NOT 
;CLEAR UNLOAD FLAG 
RPAS(R4) ;CLEAR ATTENTION BIT 
;1S THE DRIVE UNSAFE ? 
:BR IF 17 1S 
RELEASE COMMAND 
WRITE THE COMMAND INTO RPCS1 
REGISTER INDEX 
;PARITY EXIT ADDRESS 
;CHECK FOR MORE DRIVES 
71S DRIVE IDLE? 
; YES--BRANCH 
;GET DPB POINTER 
:PROCESS THE PARITY ERROR 
; CONTINUE 
;PROCESS THE UNCORRECTABLE PARITY ERROR 
> CHECK MORE DRIVES 
;‘"UNLOAD IN PROGRESS"? 
BRANCH IF NO 
itm. UNLOAD FLAG 
T DRIVE IDLE 
;DOING A SEARCH OPERATION FOR 
+ AN 1/0 COMMAND? 


srcuut 


N15 
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CZRJAD.P11 28-MAR-7 SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) SEQ 0169 
8852 040626 001012 BNE 23 sBRANCH IF YES 
8853 040630 004737 043060 JSR PC ,POPQUE ; REMOVE a Fe FROM QUEUE 
8854 040634 052762 000200 000016 BIS eBir0r. 16(R2)  3=;SET' * BIT 
8855 040642 005737 034572 TST SAVEF > SAVE THE REGISTERS? 
8856 040646 100002 BPL 2$ ;BRANCH IF NO 
8857 040650 004737 042202 JSR PC,SVRH11 YES=--SAVE ALL OF THE RH11/RP04/5/6 REG'S 
8858 040654 116164 034620 000016 2%: MOVB ATABIT(RI), RPAS(R4) ;CLEAR ATTENTION BIT 
8859 040662 004737 035742 JSR PC,OPT START A REQUEST 
8860 040666 000137 040024 JMP C4 > CHECK FOR MORE DRIVES 
8861 040672 010164 000010 $C12: MOV R1,RPCS2(R4) SELECT DRIVE 
8862 040676 016437 000012 034464 MOV RPDS1(R4) ,RPERRS sSAVE THE FOUR REGISTERS THAT 
8863 040704 016437 000014 034466 MOV RPER1(R4) ,RPERRS*#+2 sWILL TELL US SOMETHING 
Sees 040712 016437 000040 034470 MOV RPER2Z(R4) ,RPERRS*+4 
8866 040720 016437 000042 034472 MOV RPER3(R4) ,RPERRS*+6 : 
8867 040726 004037 035062 JSR RO,DRVINT sINIT. THE STATE OF THE DRIVE 
8868 040732 000401 BR 1$ s TAKE ERROR EXIT 
8869 040734 000207 RTS PC RETURN 
8870 040736 005726 1$: TST (SP)¢ ;POP PC OFF OF THE STACK 
8871 040740 000704 BR $¢8 sPROCESS THE PARITY ERROR 
8872 040742 006301 $C13: ASL R1 ;SETUP TO ADDRESS WORDS 
8873 040744 012761 177777 034576 MOV #-1, TIMER(R1) ;STOP THE TIMER 
8874 040752 006201 ASR R1 : 
8875 040754 010164 000010 MOV R1,RPCS2(R4) >SELECT THE DRIVE 
8876 040760 116164 034620 000016 MOVB ATABIT(R1),RPAS(R4) ;CLEAR THE ATTENTION BIT 
8877 040766 032714 004000 BIT #B1T11,(R4) sDRIVE AVAILABLE ? 
8878 040772 001006 BNE 1$ ;BR IF AVAILABLE 
8879 040774 006301 ASL Ri 
ose 040776 012761 023420 034576 MOV #10000.,TIMER(R1) ;START 10 SEC TIMER AGAIN 
8882 041004 006201 ASR R1 
8883 041006 000433 BR 3$ EXIT 
8884 041010 105761 034524 1$: TSTB DPINT(R1) s INITIALIZING THE DRIVE ? 
8885 041014 001424 BEQ 23 ;BR IF NOT 
8886 041016 105061 034524 CLRB DPINT(R1) sCLEAR THE INIT INDICATOR 
8887 041022 004037 035062 JSR RO,DRVINT :GO INIT THE DRIVE 
8888 041026 000240 NOP ;DUMMY PARITY ERROR RETURN 
8889 041030 105761 034504 TSTB DRVSTA(R1) sDRIVE ONLINE ? 
8890 041034 0035014 BGT 26 :BR IF YES == START ORDER 
8891 041036 005702 TST R2 sQUEUE ENTRY FOR THE DRIVE 
8892 041040 001416 BEQ 3$ 7;BR IF NOT 
8893 041042 004737 043036 JSR PC ,GETREQ ;GET DPB ADDRESS 
8894 041046 052762 140000 090016 BIS #B1T15'BI1114,16(R2) ;INFORM USER THAT DRIVE OFFLINE 
8895 041054 004737 042202 JSR PC,SVRH11 sSAVE THE REGISTERS 
8896 041060 004737 042742 JSR PC,EMPTYQ sEMPTY THE REQUEST QUEUE 
8897 041064 000404 Bi 3$ 
8898 041066 105061 034534 2s: CLRB DPRQS(R1) sCLEAR THE PORT REQUEST INDICATOR 
8899 041072 004737 035742 JSR PC ,OPT :START THE PENDING REQUEST 
ar 041076 000137 040024 3$: JMP $C4 :PROCESS GTHER DRIVES 
8902 ¢RP04/5/6 TIMER ROUTINE 
8903 3; CALL 
8904 ° MOV #TIME,-(SP) sELASPED TIME IN MILLISECONDS ON THE STACK 
oeee . JSR PC,RPTMR sCALL RPO4/5/6 TIME ROUTINE 
8906 
8907 041102 005737 034550 RPTMR: TST ACTDRV :CHECK ““ACTDRY & ACTSTR" 
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041174 
041176 


041316 


000207 


000477 


11:28 


000001 


034576 
000002 
041174 


000010 


034551 


034632 
000010 
041630 


034524 
034534 


034544 
034616 


043036 


034474 
034552 


035062 


034551 


034576 


000016 
000010 


1$: 


23: 


3$: 
4$: 
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4% 71 WON ZERO EXIT 
#1, ACTSTR SET “‘ACTSTR’ 
;SAVE RO - RS 
4 sSTART WITH DRIVE 0 
TIMER (R3) 71S THE TIMER RUNNING? 


;BRANCH IF NO 
2(SP), TIMER(RS) ;COUNT THE INTERVAL 
2% :BR IF NO SOFTWARE TIMEOUT 


PC,ST0 :CALL SCFTWARE TIMEOUT ROUTINE 
3% :G0 TO THE EXIT 

Re sMOVE TO NEXT DRIVE 

(R3)¢ 

#8.,R1 ;OUT OF DRIVES? 

1$ ;BRANCH IF NO 


;RESTORE RO = RS 
ACTST ZERO ACTIVE SOFTWARE TIMEOUT ROUTINE FLAG 
(SP)+, (SP) ;ADJUST THE STACK 
PC RETURN 


SOFTWARE TIMEOUT ROUTINE 


SCALL: 


STO1: 


1$: 


2%: 


;NOTE: THIS ROUTINE MUST BE ENTERED AT PRIORITY 6 
; OR GREATER 


#ORVNIM,R1 ;DRIVE NUMBER 

PC,ST9 7 CALL 

R1,-(SP) ;SAVE RI 

R3,-(5P) ;SAVE R 

RPADR ,RS 7GET ADDRESS OF ‘‘RPCS1" 
R1,RPCS2(R4) ;SELECT THE DRIVE 

RO,RD.RP ;READ “DRIVE STATUS REG" 

(SP)+ 71S “‘DRY''=1? 

$102 :BR IF YES 

DPINT(R1) TRYING TO INTIALIZE THE DRIVE ? 
$102 ;BR IF YES 

DPRQS(R1) ;OUTSTANDING PORT REQUEST FOR THE DRIVE ? 
$102 ;BR IF YES 

TRNSWT ,R2 PICKUP TRANSFER WAIT QUEUE 
R1,D01UW 7 TRANSFER UNDERWAY ON THIS DRIVE? 
1$ BRANCH IF YES 

PC ,GETREQ ;GET DPB ADDRESS 
#BITIS!BIT09,16(R2) ;SET THE ERROR FLAGS 
PC,SVRH11 SAVE RH11/RP04/5/6 REGISTERS 
#BITOS,RPCS2(R4) ;“"INIT'’ THE MASS BUS 

DRVACT(R1) ;DRIVE IS IDLE 

ULDFLG(R1) ;CLEAR THE UNLOAD FLAG 

‘ sSTART WITH DRIVE 0 

R 

RO,DRVINT INIT. THIS DRIVE 

$105 PARITY ERROR RETURN 


SEQ 0170 
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105761 


004737 


034474 


034544 
034616 


043036 


000010 
177777 
034544 
042664 


000016 
034620 


034524 
034534 
034616 
041630 


034524 
034534 
177777 
037152 
034524 
034504 
177777 
043036 
140000 
177777 


034534 
043036 


100004 
042742 
042202 


000016 


3$: 


4s 
034576 


034616 


034576 


034576 


000016 
034576 


000016 


$102: 


$103: 


1$: 


$105: 
S106: 


$107: 


S108: 
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DRVACT(RI) sORIVE ae, BEFORE THE INIT.? 

4% 3 YES--BRANCH 

TRNSWT ,R2 GET TRANSFER WAIT QUEUE 

DTuw,R1 WAS THERE 1/0 ON THIS DRIVE? 

3$ ove Te aen ate 

PC,GETR 7GET THE DPB POINTER FROM QUEUE 
wBiTiS: B1108, 16(R2) 7 INFORM USER OF INIT 

DRVACT(RI 3SET Drive ACTIVE TO IDLE 
ULDFLGCRT) 7NO UNLOAD 

#-1, TIMER(RS) ;STOP THE TIMER 

(R3)¢ [UPDATE THE INDEX 

R1 : INCREMENT THE DRIVE NUMBER 

#8. ,R1 LAST DPIVE BEEN CHECKED? 

23 3;NO--LOOP 

#-1 ,DTUW :NO DATA TRANSFERS UNDERWAY 
TRNSWT ;CLEAR TRANSFER WAIT QUEUE 

PC, CLRQUE i CLEAR ALL REQUEST QUEUES 

$109 xIT 

RPAS(RG),RS READ ATTENTION REG 

ATABIT(R1),R5 :1S ATTENTION FOR THIS DRIVE UP ? 
$103 > YES=-BRANCH 

DPINT(R1) s TRYING TO INTIALIZE THE DRIVE ? 
$106 :BR IF YES - DRIVE NOT ONLINE 
DPRQS(R1) sOUTSTANDING PORT REQUEST FOR THE DRIVE ? 
$107 ;BR IF YES - NO RESPONSE TO REQUEST 
R1,D0TUW [DATA TRANSFER UNDERWAY FOR THIS DRIVE 
S101 ;BR IF NO 

RO,RD.RP ZYES--CHECK “'RDY" 

(SP)¢ 

S101 sBR IF ‘'RDY''=0 

DPINT(R1) s INITIALIZING THE DRIVE ? 

1$ ;BR IF INIT PENDING 

DPRQS(R1) sPORT REQUEST PENDING ? 

$109 ;BR IF NOT 

#-1, TIMER(RS) ;STOP THE TIMER 

$109 EXIT 

ocet he 7G0 HANDLE THE PARITY ERROR 

$10 

DPINT(R1) :CLEAR THE INITIALIZE INDICATOR 


DRVSTA(R1) ;SET UNIT OFFLINE 

#-1,TIMER(R3) ;STOP THE TIMER 

+ salen ;GET THE DPB ADDRESS 
R2 +e QUEUE ? 


$109 IF NO 
MBITIS!BITI4, socked Bh atop THE USER DRIVE NOT AVAL ABLE 
0 N 


$108 
#-1,TIMER(R35)  ;STOP THE TIMER 
DPROS(R1) ;CLEAR PORT REQUEST INDICATOR 
PC ,GETREQ GET DPB ADDRESS 
R2 ; QUEUE tet FOR DRIVE ? 
N 


$109 ;BR IF N 

WBITIS'BIT2,16(R2) ;INFORM USER OF PORT REQUEST ERROR 
PC,EMPTYO sCLEAR THE QUEUE FOR THE DRIVE 
PC,SVRH11 ;SAVE THE REGISTERS 


SEQ 0171 


SSS SS SS rl 
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01260: 
000207 


000432 
004037 


012616 
000200 


034630 
034632 
041654 


041656 
034632 
000010 
010000 


172722 
020000 


943122 
034616 
040000 


040000 


034632 
041772 


041776 
041654 


000002 


041772 
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;RESTORE R3 
SRESTORE RI 
7 RETURN 


;GO READ A REGISTER 

REG. INDEX FROM BASE 

ERROR ADDRESS--PROCESS ERROR STARTING 
;AT THIS ADDRESS 

CONTENTS OF REG. IS ON THE STACK 


MAX. RETRYS ALLOWED 

SAVE RO FOR RETURN 

;FORM THE DESIRED ADDRESS 
;USING THE BASE AND THE iNDEX 
;READ THE DESIRED REGISTER OF THE RPOG 
ADDRESS 1S FORMED HERE 

;REG. CONTENTS PUT HERE 
;RETURN IT TO THE USER 

;PUT THE ADDRESS ON THE STACK 
FORM THE ADDRESS OF RPCS2 
;CHECK THE ‘NED* BIT 

BR IF DRIVE NON-EXISTENT 
;READ RPCS1 

;D1D MCPE SET? 

BRANCH IF YES 

; ADJUST FOR RETURN 

sEXIT 


;SAVE THE ADDRESS IN ‘SESCAPE" 
;REPORT ‘‘MCPE'’ ERROR 

;DATA TRANSFER UNDERWAY? 

; NO--BRANCH 

;NO--""TRE''=1? 

; NO--BRANCH 

7; YES--CLEAN OFF THE STACK AND 
> TAKE THE FATAL ERROR EXIT 
CLEAR "'MCPE'’ BY SENDING A “I"' TO “‘TRE" 
;POSITION BEFORE WRITING 
;FORM ADDRESS OF HIGH BYTE 


;WRITE THE HIGH BYTE OF RPCS1 
; ADDRESS STORAGE 

sEXCEEDED MAX. RETRYS 
;BRANCH IF NO 

FATAL ERROR EXIT 


$109: MOV (SP)+,R3 
MOV (SP)+,R1 
RTS PC 
;ROUTINE TO READ A RH11/RP04/5/6 REGISTER 
7 CALL 
$ JSR RO,RD.RP 
3 INDEX 
: ERRADR 
: RETURN 
RD.RP: MOV MCPEMX,RD.RP2 
MOV (SP) ,=-(SP) 
MOV RPADR,RD.ADR 
ADD (RO)+,RD.ADR 
RD.RP1: MOV a(PC)+, (PC i+ 
RD.ADR: .WORD 0 
RD.WRD: .WORD 0 
MOV RD.WRD,2(SP) 
MOV RPADR,=(SP) 
ADD #RPCS2, (SP) 
BIT #B1T12,a(SP)+ 
BNE RD.RP3 
MOV @RPADR ,=-(SP) 
BIT #B1T13, (SP) 
BNE 1$ 
CMP (SP)+,(RO)+ 
BR RD.RP4S 
1$: 
JSR RO,ES.SAV 
ERROR 3 
TST DTUW 
BMI 2$ 
BIT #B1T14, (SP) 
BEQ 2% 
TST (SP)+¢ 
BR RD.RP3 
23: BIS #B11T14, (SP) 
SWAB (SP) 
MOV RPADR, 3$ 
INC 3$ 
MOVB (SP)+,a(PC)+ 
3$ WORD 
DEC (PC)+¢ 
RD.RP2: . WORD 3 
BGE RD.RP1 
RD.RP3: MOV (RO),RO 
MOV (SP)4*, (SP) 
RD.RP4: RTS 0 
sROUTINE TO WRITE A REGISTER 
3 CALL 
3 MOV DATA, =(SP) 


;DATA 10 BE LOADED ON THE STACK 





SEQ 0172 © 
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CZRJAD.P11 28-MAR-79 11:28 SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) SEQ 0173 | 
9076 : JSR RO,WRT.RP CALL THE ROUTINE TO LOAD(WRITE) THE REG. 
9077 : INDEX ; INDEX OF THE REGISTER TO BE LOADED 
9078 ; ERRADR sADDRESS TO RETURN TO ON AN ERROR 
ean 3 RETURN ERROR FREE RETURN 
9081 042010 013737 034630 042164 wWRIT.RP: MOV MCPEMX,WRT.R2 ;MAX RETRYS ALLOWED 
9082 042016 016637 000002 042076 MOV 2(SP) ,WRT. WD sSAVE THE WORD te WRITE 
9083 042024 012616 MOV (SP)+, (SP) ADJUST THE STA 
9084 042026 012037 042100 MOV (RO)+,WRT.AD [GET INDEX OF REGISTER TO BE WRITTEN 
9085 042032 001015 BNE 1$ s;BRANCH IF NOT RPCS 

042034 122737 000150 042076 CMPB #150, WRT. WD 1S THE COMMAND ron DATA TRANSFERS? 
9087 0420462 002411 BLT 1$ :YES==DON'T GET THE OLD A16 & AI7, & PSEL 
9088 042044 004037 041630 JSR RO,RD.RP >NO---COMBINE Al68A17, & PSEL WITH 
9089 042050 000000 RPCS1 THE COMMAND BEFORE SENDING IT TO 
9090 042052 042172 WRT .R3 >THE RH11/RP04 
9091 042054 000316 SWAB (SP) 
9092 042056 042716 177770 BIC #*°C7, (SP) 
9093 042062 112637 042077 MOVB (SP)+,WRT.WD+1 
9094 042066 063737 034632 042100 1%: ADD RPADR,WRT.AD :FORM THE ADDRESS OF THE DISK REG. 
9095 042074 0) 2737 WRT.R1: MOV (PC)+,a(PC)+ LOAD THE DESIRED REG. 
9096 042076 000000 WRT.WD: .WORD 0 sWORD TO WRITE GOES HERE 
9097 042100 000000 WRT.AD: .WORD 0 ADDRESS IS FORMED HERE 
9098 042102 013746 034632 MOV RPADR,-(SP) :PUT THE ADDRESS ON THE STACK 
9099 042106 062716 000010 ADD #RPCS2, (SP) sFORM THE ADDRESS OF RPCS2 
9100 042112 032736 010000 BIT WB1112,a(SP)*  ;CHECK THE ‘NED’ BIT 
9101 042116 001025 BNE WRT .R3 :BR IF DRIVE NON-EXISTENT 
9102 042120 004037 041630 JSR RO,RD.RP CHECK FOR PARITY ERROR ON WRITE 
9103 042124 000014 RPER1 
9104 042126 042172 WRT.R3 
9105 042130 032726 000010 BIT #81103, (SP)¢4 
9106 042134 001420 BEQ WRT BRANCH IF ‘‘PAR=0"" 
9107 042136 016037 177776 042150 MOV me Feed 1$ :PICKUP THE INDEX 
9108 042144 004037 041630 JSR RO,RD.RP ;READ THE REG. 
9:09 042150 000000 1$: ~-wORD 0 ;REG. INDEX 
9110 042152 042172 WRT.R3 RETURN TO THIS ADDRESS ON ERROR 
9111 062154 004037 043122 JSR RO,£S.SAV SAVE THE ADDRESS IN ‘SESCAPE' 
9112 042160 104004 ERROR 4 :REPORT THE PARITY ON WRITE ERROR 
9113 042162 005327 DEC (PC)+ :DECREMENT THE ERROR COUNT 
9114 042164 000003 WRT.R2: .WORD 3 RETRY COUNTER 
9115 042166 002242 BGE WRT.R1 TRY AGAIN IF NOT FINISHED 
9116 042170 005726 TST (SP)¢ CLEAN OFF THE STACK 
9117 042172 011000 WRT.R3: MOV (RO), RO STAKE THE "PARITY ON WRITE’ ERROR EXIT 
9118 042174 000401 BR WRT.RS sEXIT 
9119 042176 005720 WRT.RG: TST (RO)+ sADJUST FOR ERROR FREE EXIT 
at 042200 000200 WRT.RS: RTS RO 
9122 sROUTINE TO SAVE THE RH11/RP04/5/6 REGISTERS AS PER DPB+14 
9123 : 
9124 s CALL 
9125 : MOV #DPBNUM,R2 :DPB POINTER TO R2 
9126 : JSR PC,SVRH11 :SAVE THE DRIVES REG'S 
9127 
9128 042202 104412 SVRH11: SAVREG :SAVE RO - RS 
9129 042204 005702 1ST R2 SQUEVE ENTRY FOR THE DRIVE ? 
9130 042206 001430 BEQ 4$ :BR IF NONE 


9131 042210 013704 0346352 MOV RPADR ,RG 
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5$: 
6$: 


ROUTINE TO SET 


7 CALL 


SET.IE: 


1$: 
2$: 


MOV 
JSR 
RETURN 


MOV 
MOV 


;QUEVE COUNT 


QCNT: 


-BYTE 


(R2) ,RPCS2(R4) 
14(R2),R3 
6$ 


7$ 
3%, #RPDB 
$ 


2 :BR 
#BITO7,RPCS2(R4) 
2$ :BR 


(R3)¢ 

4% 
RO,RD.RP 
0 
(SP)+,(R3)¢ 
3$,#RPEC2 
6$ 

#2,5% 

1$ 

PC,CI17 

PC 


; SELECT DRIVE 


;GET THE ERROR TABLE POINTER 
EXIT IF NO ADDRESS 


;COUNTER & POINTER 

REACHED THE BUFFER REGISTER ? 
If NOT 

a4 SET ? 


SET 
TORE RPDB AS ZEROES 
; CONTINUE 
:READ THE SELECTED REGISTER 


REGISTER INDEX 
ERROR RETURN ADDRESS 


STORE THE REGISTER CONTENTS 


;REACHED THE END ? 


;BR IF YES 

; INCREMENT THE REGISTER INDEX 

sCONTINUE READING THE REGISTERS 
;PROCESS THE UNCORRECTABLE PARITY ERROR 
RESTORE RO - R5 

: RETURN 


THE INTERRUPT WITHOUT GETTING A ‘‘TRE” 


#DRVNUM,R1 DRIVE NUMBER TO RI 
PC,SET.IE set "TE" 

R4,-(SP) ; SAVE RG 

RPADR ,R4 :PICKUP ADDRESS OF RPCS1 
R1,RPCS2(R4) ;SELECT DRIVE 

(R4) ,-(SP) ;READ RPCS1 

#B1T14,(SP) :SET THE “‘TRE'’ BIT OF THE WORD READ 
(SP) ;ADJUST FOR DATO 
#B1T06,(R4) + 1 ie, 
WBITI2,RPCS2(R4) 31S “‘NED''=1? 

1$ ZYES--CLEAR “‘TRE"’ 

a." ;CLEAN OFF THE STACK 


(SP)+,1(R4) 
(SP)+,R4 
PC 


ooocooc;”[e°co 


;QUEUE INPUT POINTERS 


QINPT: 


«WORD 


QDRVO 


CLEAR TRE’ 
RESTORE R4 
;RETURN TO CALLER 


J 
LJ 
pe) 
-_ 
< 
mn 
NO WE WR --O 


sDRIVE 0 


SEQ 0174 


a EEE 





CZRJAD RP04/5/6 wt AND READ/WRITE TEST 
CZRJAD.P11 11:28 


042404 


042420 


042422 


042440 


042442 
042444 
042446 
042450 
042452 
042454 
042456 
042460 
042462 


042464 
042504 
042524 
042544 
042564 
042604 
042624 
042644 


042664 


042714 


28-MAR-79 


042504 


042644 


042464 
042504 
042524 
042544 
042564 
042604 
042624 
042644 


042464 


042664 


104412 


005305 


042372 


000010 
042442 


MACY11 30A(1052) 


G 14 
26-MAY-79 1 


3:59 PAGE 179 


SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) 


;QUEUVE OUTPUT 


QOUTPT: 


QSTART: 


QSTOP: 


: DRIVE 


QDRVO: 
QDRV1: 
ODRV2: 
QDRV3: 
QDRV4: 
QDRVS: 
QDRV6: 
QDRv?7: 


QTERM=-. 


« WORD 
«WORD 
- WORD 
- WORD 
« WORD 
«WORD 
«WORD 
- WORD 


«WORD 
. WORD 
«WORD 
«WORD 
«WORD 
- WORD 
. WORD 
. WORD 
» WORD 


-BLKW 
-BLKW 
-BLKW 
-BLKW 
-BLKW 
-BLKW 
-BLKW 
-BLKW 


QDRv1 
QDRV2 
QDRv3 
CDRVS 
QDRVS 
QDRV6 
QDRV?7 


POINTERS 


QDRVO 
QDRv1 
QDRv2 
QDRV3S 
QDRV4 
QDRvV5 
QDRV6 
QDRvV7 


QDRVO 
QDRv1 
QDRv2 
QDRv3 
QDRV4 
QDRVS 
QDRvV6 
QDRv7 
QTERM 


REQUEST QUEUES 


+ —s —s so >» 4 --+ 4 
ooooo°o°co 


‘DRIVE 


NOW wh 


NOU WN HO 


0 START ADDRESS 

0 STOP ADDRESS & DRIVE 1 START ADDRESS 
DRIVE 1=-START DRIVE 2 

DRIVE 2--START DRIVE 
DRIVE 3--START DRIVE 
DRIVE 4--START DRIVE 
DRIVE S--START DRIVE 
DRIVE 6--START DRIVE 
DRIVE 7 


NOUS Ww 


ROUTINE TO CLEAR ALL OF THE REQUEST QUEUES 


CALL 


CLRQUE: 


SAVREG 


PC, CLRQUE 


#QCNT,R2 
(R2)¢ 

(R2)+ 

(R2)¢ 

(R2)+ 

#8. R35 
MOSTART,RI 
(R1)*,(R2)¢ 
R3 


SAVE 


3 ZERO 


‘MOVE 
s ADDRE 


RO - RS 
THE em COUNTS 


THE STARTING 
SS OF THE QUEUE INTO 


; THE QUEUE INPUT POINTER 


SEQ 0175 


| 
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000207 


105061 
006301 
016161 
006201 
000207 


122761 
001421 


000200 


005002 
105761 
001494 
006301 
017102 


000010 
042442 


042372 


- 042402 


000010 
042372 
042402 
000002 
042402 


042442 


042372 


042422 


042422 


042372 


042402 
042444 


042402 
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23: MOV 


1$ 
#8. ,R5 sMOVE THE STARTING ADDRESS 
WOSTART,RI ;OF THE QUEUE INTO THE 
ee ;QUEVE OUTPUT POINTER 
R 
2% 
;RESTORE RO = R5 
PC 


sEMPTY THE QUEUE SPECIFIED BY RI 


“CALL 
: mov 
: JSR 


EMPTYQ: CLRB 
ASL 


;ROUTINE TO PUT 


3; CALL 

MOV 

MOV 

JSR 
RETURN 
RETURN2 


DRVQUE: CMPB 
B 


1$: ASR 

es: RTS 
sROUTINE TO GET 
CALL 

: MOV 

5 JSR 
s RETURN 


DRVNUM,R1 ;DRIVE NUMBER TO RI 
PC,EMPTYQ 
_ ;CLEAR NUMBER OF ITEMS IN QUEUE 


R 

uh ee iain’ SET OUTPUT QUEUE POINTER=INPUT POINTER 
R 

PC 

A REQUEST IN QUEUE 


#DRVNUM,RI DRIVE NUMBER 
#DPB,R2 ; ADDRESS OF PARAMETER BLOCK 
RO, DRVQUE ;GO PUT REQUEST IN QUEUE 


RETURN HERE IF QUEUE IS FULL 
RETURN HERE IF REQUEST IS IN QUEUE 


#10, QCNT(R1) ;1S QUEUE FULL? 

2$ BR IF YES-TAKE RETURNI 
—" ; INCREMENT QUEUE COUNT 
R 


R2,@Q1NPT(R1) PUT THIS REQUEST IN QUEUE 
#2,QINPT(R1) ;UPDATE THE QUEUE POINTER 
QINPT(R1),QSTOP(R1) ; TIME TO RESET THE POINTER 


1$ ;BRANCH IF NO 

mai tances TYES--RESET POINTER 
R 

(RO)*+ ; TAKE RETURN 2 

RO sRETURN TO USER 


THE ''DPB’’ ADDRESS OF NEXT REQUEST IN QUEUE 


#DRVNUM,&1 DRIVE NUMBER TO RI 

PC ,GETREQ :G0 GET THE REQUEST 
7R2=""DPB’* ADDRESS OF THE REQUEST 
:R2=0 IF NO REQUEST IN QUEUE 


R2 
QCNT(R1) 31S THERE ANY REQUEST IN QUEUE? 
2$ 7NO---BRANCH 


R] 
BOOUTPT(RI),R2 PICKUP ‘DPB’ POINTER FOR THIS DRive 


SEQ 0176 | 





CZRJAD RPO4/5/6 aaeda at AND READ/WRITE TEST 
CZRJAD.P11 1:28 


043054 
043056 


043060 


043120 


043122 


043144 


043146 


043242 


28-MAR-79 | 


006201 
000207 


105361 


000207 


012037 
013746 
005037 
000000 
012637 
000200 


000122 
meteve 


005015 


042372 
042422 
000002 
042422 


042442 


043136 
001206 
001206 


001206 


000123 
000124 


047503 
020114 
044103 


040527 


042422 
042444 


042422 


052116 
053523 
051505 


047122 


MACY11 30A(1052) 


1 14 
24-MAY-79 


13:59 PAGE 181 


SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) 


23: 


ASR 
RIS 


R1 
PC 


RETURN TO USER 


ROUTINE TO “’POP’’ THE REQUEST FROM QUEVE 


[CALL 


1$: 


ROUTINE TO 
;REPORTS AN 


CALL 


ES.SAV: 


MSG.IC: E 


z 

al 

Q 
. o ° 8 . = a i 
amor Tern 
Vo ruwuou=ao- 
oe 


USE: 


os —i ee ee ee ee ee 
- 


MOV 
JSR 
RETURN 


+ ge 


JSR 
ERROR 
RETURN 


#DRVNUM,R1 
PC ,POPQUE 
QCNT(RI) 
R1 


QQOUTPT(RI) ,R2 
#2,QOUTPT(R1) 


> athnate eQSTOP(RT) 

1 

QSTART(RI), aouTPy (RT) 
R1 


PC 


RO,ES.SAV 
N 


(RO)+,1% 
SESCAPE ,-(SP) 
SESCAPE 


0 
(SP)+,SESCAPE 
RO 


/R/ 
/FC/ 
/LC/ 
/FCT/ 
ac*# 
/\C/ 
/FT/ 
/LT/ 
/\1/ 
aby 


LS/ 
“ASC /PAT/ 


;ORIVE NUMBER TO RI 
;CALL TO REMOVE REQUEST 
;R2=ADDRESS OF DPB REMOVED 


;DECREMENT QUEUE COUNT 


7GET THE ‘“‘DPB’’ POINTER 

;UPDATE THE QUEUE POINTER 

s TIME TO RESET THE POINTER? 
NO--BRANCH TO EXIT 

sYES--RESET THE POINTER 


RETURN TO USER 


SAVE THE CONTENTS OF ‘SESCAPE* WHEN THE DRIVER 
ERROR DIRECTLY. 


77 7ME ERROR CALL 
;THE RETURN IS PAST THE ERROR CALi 


7GET THE ERROR CALL 

;SAVE THE ADDRESS IN ‘SESCAPE* 
;CLEAR THE ESCAPE RETURN 

;THE ERROR CALL IS MOVED HERE 
sRESTORE THE ESCAPE ADDRESS 
;RETURN 


/= 
CCR><LF>/ CONTROL SWITCHES=/ 


<CR><LFE>/WARNING: PROGRAMMABLE DRIVES MAY BE USED/<CR><.F 


SEQ 0177 


CZRJAD RPOG/5/6 MECHANICAL AND 
CZRJAD.P11 


043562 
043364 


2 
043670 


28-MAR-79 


047111 


000104 
027440 


11:28 


052440 


000040 


047516 
051505 


051516 


052117 
027464 


032060 


041040 
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ASCIZ MESSAGES 


050040 
046501 
020105 
051505 
041040 
042105 


043517 
041101 
044522 
046111 
020124 
042523 


051440 
035125 


000105 
044514 


044514 


020124 
047105 


043101 
051040 
027465 

000 
000065 

000 
044522 
020051 
020105 
042105 

000 


020117 


042105 


042524 
020107 
020105 


NOUSE : 


SLASH: 


SYSTAT: 


UNTMSG: 
UNTOFF : 


UNTON: 


NOTPRS: 


NOTSAF: . 


NOTRP: 


RPOGB: 
RPOS: 
RPO6: 


DRIVES: . 


NONE: 
COMMA: 


NOCLOK: ; 


TESTNG: 


eASCIZ 


-ASCIZ 
eASCIZ 


eASCIZ 
eASCIZ 
-ASCIZ 


eASCIZ 


eASCIZ 


/ PROGRAMMABLE-ORIVE WILL NOT BE USED/ 


a/a 

/JUNIT STATUS:/<CR><KLF><LF > 
/DRIVE/ 

/ OFFLINE/ 

/ OQNLINE/ 

/ NOT PRESENT/ 


/ UNSAFE/ 

@ NOT RP04/5/6a 
/RPOS/ 

/RPCS/ 


/RPO6/ 
<CR><LF>/DRIVE(S) TO BE TESTED / 


/NONE / 


/,/ 
<CR><LF>/NO KW1T-P CLOCK, TIMING TESTS Witt NOT BE PERFORMED/ 


<CRO<LF><LEO/TESTING DRIVE / 


SEQ 0178 


Natron SRS SS Sh SSS se ss ss se ssh ss sss esses she 





CZRJAD RPOG/5/6 ea tt AND READ/WRITE TEST 
CZRJAD.P11 9 11:28 


043671 
043676 
043704 


043710 


044116 
044124 
044132 
044140 
044146 
044153 
044160 
044166 


044170 


044306 


28-MAR-7 
123 
020114 
051105 


005015 


(42522 
000105 


005015 


052040 


051105 
052516 
000040 


051012 


044524 


047412 
046131 


000 
020012 
042526 


940412 
020123 


053522 


025040 
051105 


005012 


042526 


044515 
046412 
053101 
052440 


046511 


051101 


051040 
042523 


040515 
020115 
052040 
005015 
051117 

000 
020052 
051522 
036516 
054101 
036507 


000123 
053517 


042105 


SERIAL: 


MSG7: 


MSGIOA: 


MSG10B: 


MSGIIA: 


MSG118: 


MSG12A: 


MSG12B: 


MSGMIN: 
MSGMAX: 
MSGAVG: 


MSGOUS: 
MBELOW: 


MABOVE: 


MSGNUM: 


K 14 
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ASCIZ MESSAGES 


-ASCIZ 


eASCIZ 


-ASCIZ 


eASCIZ 


-ASCIZ 


eASCIZ 


-ASCIZ 


eASCIZ 


eASCIZ 
-ASCIZ 
eASCIZ 


-ASCIZ 
-ASCIZ 


eASCIZ 


eASCIZ 


/SERIAL NUMBER / 


<CR><LF><LE>/ROTATIONAL SPEED TIMES/ 


<CR><LF><LF>/ONE CYLINDER SEEK TIMES/<CR><LF>/ * FORWARD/ 


<CR><LF>/ * REVERSE/ 


<CR><LF><LF>/ACCESS TIME MEASURMENT/<CR><LF>/ * FORWARD/ 


<CR><LF>/ * REVERSE/ 


<CR><LF><LF>/MAXIMUM SEEK TIMES/<CR><LF>/ * FORWARD/ 


<CR><LF>/ * REVERSE/ 
<CR><LF>/MIN=/ 


<CR><LF>/MAX=/ 
<CR><LF>/AVG=/ 


/0 uS/ 
/ BELOW THE MINIMUM OF / 
/ ABOVE THE MAXIMUM OF / 


/ SEEKS TIMED/ 


SEQ 0179 


CZRJAD RPOG/5/6 MECHANICAL JS se TEST 


CZRJAD.P11 


044314 
044315 
044322 
044330 


044333 


044754 


28-MAR-79 11: 


000 
040 
044524 
020040 


051122 


047516 
042515 
000 


030510 
042524 


020124 
000104 


040504 


020101 
051101 
046111 


042440 
044440 


SCIZ MESSAGES 


MSGNON: .ASCIZ 


MSG. 
. SBT 
EMI: 


EM2: 


EM3: 


EMA: 


EMS: 


EM10: 


EM11: 


EM12: 


—EM13: 


EM17: 


SP: .ASCIZ 
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/ NOT TIMED/ 
. #£ TWO (2) SPACES 


TL ERROR HEADER (EM) MESSAGES 


-ASCIZ 


-ASCIZ 


eASCIZ 


eASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


»ASCIZ 


/RH11 INTERRUPI OCCURRED (RPAS = 0)/ 


/UNEXPECTED ATTENTION OCCURRED/ 


/MASSBUS PARITY ERROR(MCPE=1)/ 


/MASSBUS PARITY ERROR(PAR=1)/ 


/ADDRESS PLUG CHANGE BIT SET/ 


"“"RH11/RP04/5/6 FAILED TO RESPOND 10 ADDRESSING" 


/DRIVE SELECTED IS NOT ONLINE/ 


/IMPROPER HEADER DATA/ 


/DATA COMPARE FAILURE/ 


/DISK ERROR IN TIMING TEST/ 


SEQ 0180 


CZRJAD 


CZRJAD. 





RP04/5/ 
Pil 


045204 


045212 


045400 
045406 


6 MECHANICAL AND 
28-MAR-79 11:28 


020116 


051105 


043117 


042522 


044524 
052040 


041517 


030062 
030461 
027464 
051105 
040524 
052111 


041505 
047522 


046106 


052123 
051105 


M14 
‘egpriteaincs MACY11 30A(1052) 24-MAY-79 13:59 PAGE 185 


044515 
051505 


020113 


046511 
042524 


020113 


046440 
051057 
027465 
047522 
020114 
020105 


020113 
000122 


047111 


051505 
042101 


042105 


044523 
020124 
042506 


0521 
0475 


04052 
046511 


OR HEADER (EM) MESSAGES 


EM20: eASCIZ /CLOCK (KWI11-P) OVERFLOW IN TIMING TEST/ 


EM23: eASCIZ /DISK ERPOR DURING SEEK/ 


EM24: eASCIZ /SEEK NOT COMPLETE WITHIN 120 MS/ 


EM41: eASCIZ = *"'RH11/RP04/5/6 ERROR" 


EM46: eASCIZ /FATAL WRITE CHECK ERROR/ 


-SBTTL STATUS/ERROR INDICATOR MESSAGES 
MSGB14: .ASCIZ /OFFLINE OR UNSAFE DRIVE REQUESTED/ 


MSGB13: .ASCIZ /UNLOADED DRIVE REQUESTED/ 


MSGB12: .ASCIZ /PERSISTENT UNSAFE/ 


MSGB11: .ASCIZ /PARITY ERROR OCCURRED/ 


MSGB10: .ASCIZ /FATAL PARITY ERROR/ 


MSGBO9: .ASCIZ2Z /SOFTWARE TIMEOUT ON THIS DRIVE/ 


SEQ 0181 








CZRJAD RPOG/5/6 MECHANICAL AND 


CZRJAD.P11 
9580 045414 


28-MAR-79 11:28 

047505 052125 
044124 
044522 


043117 


044524 


051122 
041503 


046004 
046012 000 


046013 


9635 046044 
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047440 
051511 
042526 


053524 


047117 
051117 


052116 


050040 
040520 


041520 
053111 
050122 


STATUS/ERROR INDICATOR MESSAGES 


MSGBO8: .ASCIZ /SOFTWARE ‘IMEOUT ON ANOTHER DRIVE/ 

MSGB06: .ASCIZ ‘ERROR OCCURRED DURING 1/0 OPERATION" 

MSGBO5: .ASCIZ ‘'ERROR GCCURRED DURING NON-1/0 OPERATION" 

MSGBO4: .ASCIZ /UNSAFE OCCURRED/ 

MSGBO3: .ASCIZ /AUTOMATIC RECALIBRATE SEQUENCE OCCURRED/ 

MSGBO2: .ASCIZ /DRIVE HAS NOT RESPONDED TO PORT REQUEST/ 

MSGBO1: .ASCIZ /DRIVE HAS BECOME NON-EXISTENT/ 

-SBTTL DATA HEADER (DT) MESSAGES 

DH1: -ASCIZ /ERR PC RPAS/ 

DHe: e-ASCIZ /ERR PC DRIVE RPAS RPDS! RPERI RPER2 RPERS/ 


SEQ 0182 


aaa + ee 


8 15 
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CZRJAD.P11 28-MAR-79 11:28 DATA HEADER (DT) MESSAGES SEQ 0183 


9636 046052 051501 020060 020040 
9637 046060 050122 051504 020061 
9638 046066 020040 


04 2 050122 051105 
9639 046074 020061 020060 050122 
046102 051105 020062 020040 
9641 0466110 050122 051105 000063 
9642 046116 042526 052123 020040 DH}: eASCIZ = /TEST ERR PC ADDRESS DATA/ 
9645 046124 0 051105 020122 
9644 046152 041520 020040 042101 


000 
9647 motte 124 051505 020124 DH4: eASCIZ /TEST ERR PC ADDRESS GDDATA BDDATA/ 


9652 046210 020101 0410460 42104 


9654 046222 050122 051503 020061 DHI0: .ASCIZ /RPCS1 ERR PC/ 
9655 046230 020040 wae 020122 


9657 046241 1046 044522 042526 DHI1: .ASCIZ /DRIVE ERR PC/ 
9658 046246 020060 042440 051122 


9660 046260 042524 052123 020040 DxHi2: eASCIZ /TEST ERR PC TST PC DRIVE CYLNDR TRACK SECTGOR/ 


9667 046332 041501 020113 020040 
9668 046340 saat 052103 051117 


9670 046347 107 041504 046131 DHI2A: .ASCIZ /GDCYL GDIRK GDSCTR BDCYL BDIRK BDSCTR/ 


9678 046426 042107 040504 020124 DHI3A: .ASCIZ /GDDAT BDDAT WRDCNT GDADR BDADR/ 


9683 046464 020040 042102 042101 
9685 046474 042524 052123 020040 DH17: .ASCIZ /TEST ERR PC DRIVE RPCS1 RPDST RPER' RPER2 RPERS/ 


9691 046540 020061 020040 050122 





LCT 


CZRJAD RPOG/5/6 MECHANICAL AND 


CZRJAD.P11 


047230 


28-MAR-79 11:28 


051105 
050122 
020040 


020062 


2s33 ooo 
ww WT 


042120 
042520 


051040 
052123 


020040 
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020040 
020062 
051105 


020040 


051124 
020124 
040504 
051127 
020040 
051117 


020124 


020040 
030525 


030522 


041520 
020040 


050122 


020061 
051503 
050122 


DATA HEADER (DT) MESSAGES 


DH21: 


DH21A: 


DH23: 


DH23A: 


DH42: 


DH43A: 


DH4GA: 


eASCIZ 


eASCIZ 


-ASCIZ 


»ASCIZ 


eASCIZ 


eASCIZ 


-ASC1Z 


eASCI2 


/TEST 


/GDDAT 


/TEST 


/RPERI 


/TEST 


/TEST 


/RPERI 


/RPCSI 


EPR PC 


BDDAT 


ERR PC 


RPER2 


ERR PC 


ERR PC 


RPER2 


RPCS2 


TST PC 


WROCNT 


DRIVE 


RPERS 


TST PC 


TST PC 


RPER3/ 


RPDS1 


DRIVE CYLNDR TRACK/ 


SECTOR/ 


CYLNDR RPCST RPCS2~ RPDSI/ 


RPCA RPCC/ 


DRIVE/ 


DRIVE RPCS1 RPCS2~ RPDSI/ 


RPCC RPCA RPDA/ 


SEQ 0184 


CZRJAD RPOG/5/6 MECHANICAL AND 


CZRJAD.P11 


FS [SSX 


Nua 
nN 


047352 


047632 


28-MAR-79 11:28 


042120 


001116 


004216 


000102 


001170 
001164 
034466 


001116 


001116 
041656 


001116 
001270 


001274 
001264 
001116 
001270 


001126 
001122 


001126 


001116 
004204 


waren Sy 


020040 


050122 


030522 
042520 


051040 


001170 
034470 


041654 
042100 


001164 
034466 


001162 
001274 


001272 
001266 
001162 
001274 


001172 


001254 
004220 


001162 
001274 
001172 


001254 
004214 


DATA HEADER (DT) MESSAGES 


DH44B: 


DHGSA: 


-EVEN 
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eASCIZ 


eASCIZ 


/RPER1 RPERZ RPERS/ 


/RPER1 RPERZ RPERS RPWC RPBA RPDB/ 


-SBTTL DATA TABLE (DT) 


DTI: 
DT2: 


DT3: 


«WORD 
WORD 
. WORD 
«WORD 
«WORD 
. WORD 
» WORD 
. WORD 
«WORD 
«WORD 


«WORD 
. WORD 


. WORD 
«WORD 
. WORD 


SERRPC ,SREGS 

SERRPC,SREGI ,SREGS,RPERRS ,RPERRS*2,RPERRS*4 ,RPERRS*6 
STMPO,SERRPC,RD.ADR,RD.WRD 

STMPO,SERRPC .WRT.ADR,WRT.WD.RD.WRD 

STMPO,SERRPC ,SREG! ,SREGS,RPERRS ,RPERRS*+2 ,RPERRS*4 ,RPERRS*6 
RH.ADR ,SERRPC 

SREG2? , SERRPC 

STMPO,SERRPC ,SRECO,CHKDRV,CYL.DS,TRK.DS,SEC.DS 
CYL.DS,TRK.DS,SEC.DS,.CYL.RD,TRK.RD,SEC.RD 

STMPO,SERRPC ,SREGO,CHKDRV.CYL.DS,TRK.DS,SEC.DS 


SGDDAT ,SBDDAT , SREG4 , SGDADR,SBDADR 
STMPO,SERRPC,CHKDRV,RP.REG,RP.REG*12,RP.REG*14,RP.REG*40 RP REG HOC 


STMPO,SERRPC ,SREGO,CHKDRV,CYL.DS,TRK.DS 
SREG1,S$8DDAT ,S$REGS ,SREG! 
STMPO,SERRPC ,CHKDRV,CYL.DS,RP.REG,RP.REG*I0,RP.REG* Te 


SEQ 0185 


CZRJAD RPOG/S/6 MECHANICAL AND 


CZRJAD.P11 


050020 


050026 
050030 
050031 


050032 
050034 
050035 


050036 
0650040 
050041 


050042 
050044 
050045 


050046 
050050 
050051 


050052 
050054 
950055 


050056 
050060 
050061 
050062 
050064 


28-MAR-79 11:28 


004220 


004206 


000001 
002 
000 

000001 


007 
000 


000001 
004 
000 


000001 
005 
000 

000001 
002 
000 

000001 
002 
000 

000002 
007 
160 


046347 
006 


004244 
004242 
001116 


001116 
004204 


0011316 
004204 


004244 
001116 
001270 


004214 
004240 
004244 
001116 
001270 


004214 
004240 
004244 
004210 
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004246 
001162 


001162 
004214 


001162 
004214 


004246 
001162 
001274 


004216 
004212 
004246 
001162 
001274 


004216 
004212 
004246 
004226 


A TABLE (DT) 
DT23A: .WORD 
D141: WORD 
D142: WORD 
D143: WORD 
DI43A: . WORD 
D144: WORD 
DI44A: WORD 
D144B: .WORD 
D145: WORD 
DT45A: .WORD 
D145B: .WORD 
. SBTTL 
DF: WORD 

BYTE 
BYTE 
DF2: ~ WORD 
BYTE 
BYTE 
DF 3: . WORD 
BYTE 
BYTE 
DFG: WORD 
BYTE 
DEIO: WORD 
BYTE 
BYTE 
DF11 WORD 
BYTE 
BYTE 
DF12 WORD 
~ WORD 
BYTE 


RP .REG*14,RP.REG*40,RP.REG*42,RP.REG* 54, RP.REG* 56 
STMPO, SERRPC ,SREGO, CHKDRY 
SIMPO, SERRPC ,SREGO,CHKDRV,RP.REG,RP.REG*10,RP.REG*12 


STMPO,SERRPC ,SREGO,CHKD&V,RP.REG,RP.REG*10,RP.REG*I2 


RP.REG*+14,RP.REG*40 ,RP.REG*42 

STMPO,SERRPC ,SREGO,CHKDRV,CYL.DS,TRK.DS,SEC.DS 
RP.REG,RP.REG*10,RP.REG*12,RP.REG* 56,RP.REG* 54,RP.REG*06 
RP.REG*14,RP.REG*40 ,RP.REG*42 

STMPO,SERRPC ,SREGO,CHKDRV,CYL.DS,TRK.DS,SEC.DS 
RP.REG,RP.REG*10,RP.REG*12,RP.REG*36,RP.REG* 54, RP.REG*06 
RP. REG*14,RP.REG*40 ,RP.REG*+42 ,RP.REG*+2,RP.REG*4,RP.REG*22 


DATA FORMAT (DF) TABLE 


1 ;NUMBER OF DATA HEADERS 

2 ;NUMBER OF WORDS IN DATA TABLE 
0 ALL 3 NUMBERS ARE OCTAL 

1 

7 

0 

1 

4 

0 

1 

5 

0 

1 

2 

0 

1 

2 

0 

2 3:2 DH'S TO BE TYPED 

7 37 DATA WORDS FOLLOW THE 1ST DH 
160 WORDS 1-4 ARE OCTAL 5-7 ARE DECIMAL 
DHI2A sADDRESS OF 2ND DH 

6 :6 DATA WORDS FOLLOW THE 2ND DW 


SEQ 0186 


CZRJAD RP04/5/6 oN « fe ayy READ/WRITE TEST MACY11) 30A(1052) 


CZRJAD.P11 28-MAR-79 1 
9860 050065 000 
9861 
9862 050066 000002 
9863 050070 007 
9864 050071 160 
9865 050072 046426 
9866 050074 005 
9867 050075 004 
9868 
9869 050076 000000 
9870 050100 005 
9871 050101 004 
9872 
9873 050102 000001 
9874 050104 010 
9875 050105 000 
9876 
9877 050106 000002 
9878 050110 006 
9879 050111 060 
9880 050112 046650 
9881 050114 004 
9882 050115 014 
9883 
9884 050116 000000 
9885 050120 004 
9886 050121 014 
9887 
9888 050122 000002 
9889 050124 007 
9890 050125 010 
9891 050126 046775 
9892 050130 005 
9893 050131 000 
9894 
9895 
9896 050132 000001 
9897 050134 004 
9898 050135 000 
9899 
9900 050136 000001 
9901 050140 007 
9902 050141 000 
9903 
9904 050142 000002 
9905 050144 007 
9906 050145 000 
9907 050146 047166 
9908 050150 003 
9909 0950151 000 
9910 
9911 050152 000003 
9912 050154 007 
9913 050155 160 
9914 050156 047214 
9915 050160 006 


DATA FORMAT (DF) TABLE 
-BYTE 

DFI3: - WORD 
-B 


DFI4: . WORD 
DFI?7: «WORD 1 


DF21: ~WORD 2 


DF 22: -WORD 0 


DF 23: - WORD 


DF41: - WORD 


wo 

=< 

“ 

mn 
or-— 


DF42: WORD 


DF43: WORD 


H43A 


wo 
4 
— 
mn 
nw OWOTUONN ON 


DF44: WORD 


@w 
as 

— 
nn 
se 
o 
So 


«WORD DH4GA 
6 
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sALL WORDS ARE OCTAL 


sWORD 3 1S DECIMAL 


WORD 3 1S DECIMAL 


;WORD 4 IS DECIMAL 


SEQ 0187 





CZRJAD RPOG/5/6 MECHANICAL 


CZRJAD.P11 


050161 
2 


050165 
050166 


050201 


050202 


050522 
050530 


28-MAR-79 11:28 


000 
047271 
003 
000 
000003 
007 


050202 


005015 
040512 


051105 


041412 


040522 


054523 
044040 
045466 
051117 
054130 
047514 
053440 


AND READ/WRIT 


051132 
12 


042116 
040524 


051120 
006515 


052123 
051501 
046440 
026131 
050104 
042101 
046111 


6 15 
E TEST MACY11 30A(1052) 24-MAY-79 13:59 PAGE 192 


DATA FORMAT (DF) TABLE SEQ 0188 
BYTE 0 
-WORD DH44B 
-BYTE 3 
BYTE 0 
DF4S: WORD 3 
BYTE 7 
BYTE 160 
~WORD DH4GA 
BYTE 6 
-BYTE 9O 
-WORD DH45SA 
BYTE 6 
BYTE 0 
EVEN 
BUFFER=. 
TITLE: .ASCII <CR><LF><LF>/CZRJAD/<CR><LFD 
-ASCIZ @RPO4/5/6 MECHANICAL & READ-WRITE TEST@<CR><LF><LF > 
LOADRY: .ASCI] <CR><LF>/TO TEST DRIVE 0 REPLACE THE "XNDP* PACK ON DRIVE O/<CR><LF> 
SASCII /WITH ANOTHER PACK, CLEAR MEMORY LOCATION 40, AND RESTART/<CR><(F> 
SASCIZ «6/ THE PROGRAM/<CR><LF> 
NOLOAD: .ASCIZ <CR><LF>/SYSTEM HAS 16m MEMORY, “XXDP® LOADER WILL BE OVERWRITTENS< (Roe, 


CZRJAD RPOG/5S/6 MECHANICAL AND 
CZRJAD.P11 28-MAR-79 11:28 


9972 050536 020114 042502 
9973 050544 042526 053522 
9974 050552 0521246 047105 
9975 050560 000012 


4 15 
READ/WRITE TEST MACY11 30A(1052) 26-MAY-79 13:59 PAGE 193 
DATA FORMAT (DF) 


047440 
044522 
065015 


TABLE 


SEQ 0189 


CZRJAD RPOG/5/6 og Na AND READ/WRITE TEST 


MACY11 30A(1052) 


CZRJAD.P11 28-MAR-79 11:28 DATA FORMAT (DF) TABLE 
9976 
9977 «EVEN 


1 15 
24-MAY=-79 


13:59 PAGE 194 


SEQ 0190 


ee ne er oo - od 





CZRJAD RPOG/5/6 at at AND READ/WRITE TEST 
CZRJAD.P11 11:28 


050562 
050564 
050566 
050572 
050576 


050600 


050654 
050656 


050660 


050722 


28-MAR-79 


000000 


005737 


0 
010420 


000004 
000006 


000006 
050626 
020000 


000002 


000006 
000004 
050656 


001226 


001226 
001366 
051046 


051070 
031634 


000004 


MACY11 30A(1052) 


DATA FORMAT (DF) TABLE 


~ SBTTL 


ROUTINE TO SIZE MEMORY 


—_—_—— 


J 15 
24-MAY-79 13:59 PAGE 195 


-s@eanhererereretrerrterterererrrrerererereereeeterteneereeteeteneeteteee 


s*CALL: 
= 


$SIZE: 


MOV 
33S€T _ — PS 10 THE PRESENT P 


es: 


SLSTAD: 


JSR 


MOV 
MOV 
MOV 
MOV 


a 
« WORD 


PC,$SIZE 


RO,-(SP) 
R1,-(SP) 
@#ERRVEC,-(SP) 
OMERRVEC#+2,-(SP 
SP,RO 


(SP)+, QMERRVEC #2 
#2%, aw#ERRVEC 
#20000,R1 

(R1) 


: RETURN 
:*$LSTAD WILL CONTAIN THE LAST AVAILABLE MEMORY LOCATION 


3;SAVE RO ON THE STACK 


SAVE R1 ON THE STACK 


,i#SAVE PRESENT ERROR VECTOR PS & PC 


‘ey THE STACK POINTER 


;PUSH OLD PSW AND PC ON STACK 
;;SAVE THE PSW IN QMERRVEC +2 
;SET FOR TIMEOUT 


SIR IRST ADDRESS 


>; TEST THIS ADDRESS 
;;STEP TO NEXT ADDRESS 
>; TRY ANOTHER 


: DROP BACK 
RESTORE THE STACK 


SP 
(SP)+, AWERRVEC#2” :; RESTORE ERROR VECTOR 


(SP)+ ,a#ERRVEC 
R1,$LSTAD 
(SP)4+,R1 
(SP)+,RO 

PC 

0 


;;LAST ADDRESS 
;;RESTORE RI 
;;RESTORE RO 


;;CONTAINS THE LAST ADDRESS 


- ee eeeeeeeeeeeeereeri eee ree eee eee eee eee Tee R eee eRe Ke TEE 
GETADR - GET BUS ADDRESS AND VECTOR ADDRESS 

;THIS ROUTINE 1S USED TO ENSURE THE BUS ADDRESS 

:OF THE RH11/RPO4 IS SETUP TO READ THE PROPER VALUE. 

317 WILL ALSO READ THE ADDRESS FROM THE TTY IF 

; REQUIRED 


- SBTTL 


sNOTE: 
3 CALL 


. 
’ 


GETADR: 


1$: 


2$: 


JSR 
RETURN 


PC ,@#GETADR 


@#BUSADR 
7$ 


Q@#BUSADR 
#RH.ADR,RO 
#MRPCSI,R3 
(RO) ,R4 

PC, CLRBF 
RO, @#GETNUM 
2$ 


1$ 
5$ 
R4,(RO)* 


THIS ROUTINE DESTROYS RO-R4 


> INPUT FROM TTY REQUESTED? 
;NO--BRANCH 


SYES=-CLEAR THE REQUEST FLAG 
FIRST ADDRESS 


PRESENT RPCS1 ADDRESS 
>CLEAR INPUT BUFFER 
“GET NEW RPCS1 


COMMA 


;PERIOD 
;DOUBLE PERIOD 
;SAVE NEW RPCSI 


SEQ 0191 


} 
Shs esses essen see areal 




































050724 


051036 
051042 


051046 
051054 
051057 
051064 


051070 


28-MAR-79 1 


012703 


000137 


005015 
036461 


015 
041505 


000001 


051057 


051070 
031654 


000004 
051014 
130374 
000004 
001366 
034632 


000004 


000042 
001232 
017656 
017502 
050122 

000 
051012 
000075 


000010 
022636 


CZRJAD RPOG/5/6 ete i AND READ/WRITE TEST 
CZRJAD.P11 1:28 


000004 


051503 
053110 





MACY11 30A(1052) 


K 15 
24-MAY-79 
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GETADR = GET BUS ADDRESS AND VECTOR ADDRESS 


MOV #MRHVEC RS 
MOV (RO) ,R4 

JSR PC, CLRBF 
JSR oe 


BR 
BR 1$ 
BR 5$ 
3$: MOV R4,(RO)+ 
5$: MOV R4, (RO) 
$ MOV a#ERRVEC,R1 
MOV #8S ,AMERRVEC 
TST @RH.ADR 
MOV R1,Q#ERRVEC 
MOV #RH.ADR,RO 
MOV #RPADR,RI1 
MOV (RO)+,(R1)+ 
MOV (RO)+,(R1)¢ 
RTS PC 
8$: MOV R1,a#ERRVEC 
CMP (SP)+,(SP)+¢ 
ERROR 10 
TST aa42 
BEQ 1$ 
CLR a#ORVSEL 
CLR avSEOPCT 
JMP avSeEOP 
MRPCS1: .ASCIZ <CR><LF>/RPCS1=/ 
MRHVEC: .ASCIZ <CR><LF>/RHVEC=/ 


“RH 
;PRESENT RH11 VECTOR ADDRESS 
sCLEAR INPUT BUFFER 

;GET NEW RHVEC 

COMMA 


: A 

;PERIOD 

;DOUBLE PERIOD 

;SAVE NEW RHVEC 

> SAVE INPUT 

;SAVE THE ERROR VECTOR 
;SETUP FOR TRAP 

sCHECK FOR RH11/RP04 
sRESTORE ERROR VECTOR 
sFIRST ADDRESS OF NEW PARAMETERS 
sFIRST ADDRESS OF WHERE TO PUT THEM 
;BUS ADDRESS 

;VECTOR ADDRESS 

;RETURN 

sRESTORE ERROR VECTOR 
sCLEAN OFF THE STACK 
sREPORT THE ERROR 

31S THERE A MON] TOR? 
sNO--GO ASK FOR ADDRESS 
sYES--NO DRIVES SELECTED 
sNO PASSES 

3;G0 TO END OF PROGRAM 


‘ware eeekeeeeteeereeeeeeeeeereteeeer eee 


[ROUTINE TO CLEAR INPUT BUFFER FOR NEW CS1 AND VEC 


CLRBF: MOV RO,-(SP) 
MOV R1,-(SP) 
MOV #10,R1 
MOV #STTYIN, RO 

1$: CLR (RO)+ 

DEC R1 
BNE 1$ 
MOV (SP)+,R1 
MOV (SP)+,RO 
RTS PC 


7 SAVE RO 


;COUNT 10 LOCATIONS 
sSTART ADR OF INPUT BUF 


sRESTORE RO 


SEQ 0192 


i 
j 
ne ce EE SS | AT, es eee sss dieses 
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CZRJAD KP04/5/6 MECHANICAL AND READ/WRITE TEST MACY11 30A(1052) 


CZRJAD.P11 28-MAR-79 11:28 CROSS REFERENCE TABLE -= USER SYMBOLS 


000200 18348 

000040 18684 18778 

ACTORV 034550 80098 8304" 8355* 8668 8677" 8907 
ACTSTR 034551 8015# 8909" 8924+ 


SEQ 0193 | 


> 

ies] 

“” 
“on 


> 
o 
mn 
nun 
(=) 
o 
— 
So 
So 
Oo 
™~s 
a 
Oo 
az 


ATABIT 034620 3335 7355 7361 8081# 8260 8367 8472 8831 8850 8858 8876 8983 


4443 4667 
4930 4936 4944 6606" 6607 6609 6611 6612 6613 6686 6723 
0 7133 7151 


71434 $9328 


7 
| 
= 000002 17614 
AT2 = 000004 17628 
AY = 000010 17634 
A146 = 000020 17644 
ATS = =_ 000040 17654 
A116 == 000100 17668 
A17 == 000200 17674 
Alé == 000400 16584 
Al7 == 001000 1659" 
BAL = 000010 16768 
BITS 001424 20418 3496 3530 3568 3611 3652 3732 3775 3825 3925 4082 4148 4252 
4342 4440 4554 4625 4754 4800 4874 4963 7422 7453 7470 7523 7697 
B!ITO = 000001 16334 
B1100 = 000001 16234 1633 2041 2057 3306 3323 3345 3398 6169 
B1101 = 000002 16224 1632 2042 2058 3309 6495 6523 8347 8594 
B1102 = 000004 16214 1631 2043 2059 6232 6495 6526 
B1103 = 000010 16204 1630 2044 2060 3295 6532 8245 8790 9105 
B11T04 = 000020 16194 1629 2045 2061 6529 8825 
B1T05 = 000040 16184 1628 2046 2062 3968 3984 4060 4190 4204 4219 422% 4289 4313 
acas Sart 4395 4412 4417 4475 4493 4510 4515 6532 6642 8171 8614 
B1106 = 000100 1617# 1627 2047 2063 6535 8269 8338 8412 8703 9166 
B1107 = 000200 1616# 1626 2048 2064 8269 8546 8689 8790 8805 8825 8854 9138 
B1108 = 000400 16154 1625 2049 6523 8269 8970 
B1109 = 001000 16144 1624 2050 5090 5715 6538 8245 8955 
BI1T1_ = 000002 1632a 
B11T10 = 002000 1613# 2051 5074 6181 6495 6526 7716 8596 
B11T11 = 004000 16128 2052 5722 6526 8218 8371 8389 8565 8877 
BIT12 = 010000 16114 2053 6495 6529 8213 8251 8269 8349 8383 8561 8580 8592 8605 
8815 8817 9043 9100 9167 
B1113 = 020000 1610# 2054 5081 6495 6523 8332 8763 9946 
B11T14 = 040000 16094 2055 3979 4185 4199 4284 4372 4390 4470 4488 5697 6425 6495 
6529 8344 8380 8750 8894 9010 9055 9059 9164 
B11T15 = 100000 16084 2056 6687 6688 8332 8344 8347 8349 §380 8383 8565 8594 8596 
8703 8790 8805 8815 8825 8894 8955 8970 9010 9017 ' 
B112 = 000004 
BITS = 090010 
BIT4 = 000020 
B1T5 = 000040 
B1T6 = 000100 
BI117 = 900200 
B118 = 000400 
B1T9 = 001000 
BPTVEC= 000014 
BUFFER= 050202 2748 2772 3945 4572 4587 4600 4655 4788 4890 | 


CZRJAD RPO4/5/6 aaaete ths a READ/WRITE TEST MACY11 30A(1052) 


CZRJAD.P11 


BUSADR 
BYPASS 


cy 

“ 

~n 
nut 


001226 
001252 


025150 
025262 


025452 
001254 


036222 


037052 
037100 


027236 


= 000015 


000200 


001270 


001262 
001220 


030566 
100000 


. 000002 


M15 
24-MAY-79 


CROSS REFERENCE TABLE -- USER SYMBOLS 


40348 


3170+ 
3581¢ 
6 


6357* 
9815 


3398 
6562 


4035 


7866 
4262 


4498 
5279 
9438 
10063 


6406* 
9821 


3667 
7258 


4037s 


3177* 
3665* 
71 


7876 
4352 


67028 
7256 
9441 


6436* 


> 
( 


nS 
Mma 
ica 

mr 


4046 


13:59 PAGE 199 


10022 =10024* 
3745* 


3788* 3859 


6278 6621 
3681 3697 3703 
63064 6309 


9789 9794 9797 


8471 8482 8489 
8693 8842 9150 


7819 7830 7881 


4450 6099" 6101* 


7336 9351 9355 


9447 9451 9453 


6462" 6616* 66548 


4228 4892 6114 
7263* 


3952 


3751 


9801 


8495 


61078 


9372 
9455 


6973e 


6124 


4099¢ 


3753 


9806 


8499 


9391 
9934 


7087* 


6134 


SEQ 0194 


4564¢ 


3797 


9808 


8513 


9398 
9936 


9784 


6169 


N15 
CZRJAD RPOG/5/6 MECHANICAL AND READ/WRITE TEST MACY11 30A(1052) 24-MAY-79 13:59 PAGE 200 


CZRJAD.P11  28-MAR-79 11:28 CROSS REFERENCE TABLE == USER SYMBOLS 

DFLT 001664 21338 ©6158 

DFT 050026 2861 98318 

DF10 050046 2925 9847" 

DF11 050052 2935 98518 

DF12 050056 2948  9855e 

DF13 050066 2961 2982 9862" 

DF14 050076 2969 2990 9869# 

DF17 = 050102 3000 3010S «9873 ; 

DF2 050032 2871 2901 9835e 

DF21 050106 3023 «98778 

DF22 050116 3031 9884a 

DF23 = 050122 3043 3055 «(98884 

DFS =: 050036 2881 98398 

DF4 = 050042 2891 98430 

DF41 050132 3088 9896s 

DF42 050136 3098 © - 99008 

DF43 = 050142 3110 © 9904a 

DF44 050152 3125 9911" 

DF45 050166 3140 3155 99218 

DHI 046013 2859 —- 9630" 

DHIO 046222 2923. 9654e 

DHI1 046241 2933 96578 

DHI2 046260 2946 =. 2959S «2980 «= 3123S 3138 = 3153 (96608 

DHI2A 046347 9670" 9858 

DHI3A 046426 96788 9865 

DHI7? 046474 2998 3008  9685# 

DH2 046030 2869 2899 9633" 

DH21 046572 3021  9696M 

DH21A 046650 9704" 9880 

DH23 046707 1 3053 97108 

DH23A 046775 9720" 9891 

DH 046116 2879 9642s 

DHA == 046153 2889 9647 

DH41 = 047042 3086 = 97278 

DH42 047100 3096 = 3108 += «9732 

DH43A 047166 9741" 9907 

DH4GA 047214 97458 9914 9924 

DH44B 047271 97538 9917 

DH4SA 047317 9757" 9927 

DIGB = 000004 17148 

DISPLA 001142 1946# 3207 3215" 3503" 3537" 3575* 3618  3659* 3739" 3782" 38328 
4155* 4259# 4349" 4447* 4561* 4632" 4761" 4BB1* 4970" 5073" 57368 

DISPRE 000174 1509" 3215 

DLT = 100000 16884 

DL64 = 000020 1716# 

DMD = 000001 1750# 

DORTI 027170 3966 417942774365 4463 66730 

DPB.A 004104 2695 3391" —3397* 3400" «= 3401" 3403" «3506 = 3836e «= 3854" 3861 «39378 


628 
DPB.B 004124 2719H = =3392*" 3507* 3508" 3509* 3540" 3542* 3544" 3579" 3580" 3582+ 


3743* 3744* 3750" 3752 3786 3787+ 3796* 3798*  3800* 3802" 3804+ 
3837* 3842" 3852" 3854 3881* 3882 3884" 4093" 4095" 4097" 4108* 
6264* 6508 6310 6314 6315 6316 6317 6329 6332 6335 

DPB.C 004144 2743H@ = 3393" = 5541" = 3543" = 3545" = 40948 = 4096 = 4 098* = 4104" = 4105 41078 


3932¢ 


39408 
4981¢ 


3587+ 
3696+ 
3806+ 
4109 


6262" 


SEQ 0195 | 


4089* 


3949 
627? 


3588 

3702° 
38355e 
626)" 


6265" 


} 
' 
' 


| 


CZRJAD RPOG/S/6 We CHA CM, AND READ/WRITE TEST MACYI1 30A(1052) 
11:28 CROSS REFERENCE TABLE -- USER SYMBOLS 


CZRJAD.P11 
DPINT 034524 
DPR = 0004600 
DPROS 034534 
DRIVES 043521 
pra = =_-~-004000 
DRVACT 034474 
DRVCAL 0256462 
DRVCLR= 000111 
ORVCL1 025662 
DRVINT 035062 
ORVMSK 001256 
ORVOK 236 
DRVQUE 276 
DRVSEL 001232 
DRVSTA 5 
DRVTYP 034514 
DRY = 000200 
DSWR = 177570 
DIADPB 004164 
DIE = 010000 
DTSY = 000200 
DTUw 034616 
D100 = 000001 
0101 = 000002 
D102 = 000004 
D103 = 000010 
D104 = 000020 
D105 = 000040 
D106 = 000100 
D107 = 000200 
D108 = 900400 
p11 047374 
p119 047460 
p11} 047664 
D112 047470 
D112A 047506 
p113 047522 





298) 


6357 
8185 


97898 


6358 
8277* 


8737 


6359 
8314 


8898« 


8 16 
246-RMAY-79 


6360 
8734 


6372 
8759 


8987 


8584 
4659 
6599 


8962 


3377 
8165* 
8617+ 


8209* 


6375 
8884 


8998 


8599¢ 
4675 


3389« 
8166° 
8740 


8224" 


3959 


13:59 PAGE 201 


6378 
8886« 


9015 


8682¢ 
468! 


$947 


8755 
4821 


73320 
8208¢ 
8761 


8254* 


39448 
4191 
4302¢ 
4476 
4584* 
4643¢ 
4680¢ 
4890¢ 
49228 
6406 
64478 
6648 
7238¢ 


8602* 


8985 


8788 
4827 


8819¢ 
4857 


7361¢ 
8266¢ 
8820¢ 


8245* 


8826¢ 
4899 


8683+ 


c 16 i uF Ber aS ee 
CZRJAD RPOG/5/6 MECHANICAL AND READ/WRITE TEST MACY11 30A(1052) 24-MAY-79 13:59 PAGE 202 
s 


CZRJAD.P11 = 2B-MAR-79 11:28 CROSS REFERENCE TABLE == USER SYMBOL SEQ 0197 

DIT3A © 067540 2968 «=. 2989s«97928 

D117? 047552 2999 3009 «=: 97948 

DI2 047400 2870 0 97720 

D121 = 047572 3022 «97978 

DI2IA 3030 436-9799 

D123 047616 3042 3054 98018 

DI23A 047634 98040 

p13 047416 2880 97758 

DI4 047426 2890 97778 

D141 047646 3087 98068 

D142 047656 3097-9808 

D143 047674 3109 «981 1" 

DI43A 047712 98140 

D144 = 047720 3124 9815# 

DIGGA 7736 98188 

D144B 047752 9820" 

D145 047760 3139315498218 

DI45A 047776 98240 

01458 050012 98268 

p15 047449 9779" 

DVA = 004000 17088 

ECH = 000100 17378 

EC] = 004000 1851" 

EMPTYQ 042742 8571 8616 8704 8827 8896 9018 9259 

EMTVEC= 000030 1643# 3191" 3192 

EMI 044333 2858 9475" 

EM10 044561 2922-9501" 

EM11 044637 2932-9509" 

EM12 044674 2945 9514" 

EM13. 044721 2958 2979 += 3020-s«9518# 

EM17 044746 2997 9522" 

EM2 044376 2868 9481" 

EM20 045000 3007 «9527M 

EM23 045047 3040 9534" 

EM24 045076 3052 «9538 

EMS 044434 2878 9486" 

EMG 044471 2888 ©9491 

EM41 045136 3085 = 3095-3107 3122,—Ss3137 = Shae 

EM46 © 045162 3152-9548 

EMS 044525 2898 9496" 

ERINDX 026364 6287 6318 6361 6410 6440 6466 6517# 6658 

ERR = 040000 17268 

ERRVEC= 000004 1636# 3206 3205* 3216* 5702 5703" 5705* 5708* 6068" 6069" 6074" 6094 9989 

9990 9994"  9995* 10002* 10003* 10043 10044* 10046* 10052 

ERR.CT 001364 20228 34630 4563 4634 4763 4883 6475 6955 6986 7101 7160 

ES.SAV 043122 8719 8770 87746 9051 9111 93288 

EXIT0 000630 3510  3515# 

EXIT! 007006 3546 4©=—- 35518 

EXITIO 012136 3952 4032, 4063S 4 08S # 

EXITI1 012356 4099 = 41118 

EXITI2 013114 4164 4169 4232 42368 

EXIT13 013560 4268 4270 4324 

EXITI4 014276 4358 4360 44238 

EXITI5 015014 4456 46458 = 45218 

EXITI6 015412 4564 46078 | 

EXITI7 016032 4635 46878 | 
ko 


D 16 

CZRJAD RPOG/5/6 MECHANICAL AND READ/WRITE TEST MACY11 30A(1052) 24-MAY-79 13:59 PAGE 203 

CZRJAD.P11 28-MAR-79 11:28 CROSS REFERENCE TABLE <= USER SYMBOLS SEQ 0198 

Ex112 007224 3581 35988 

EX1120 016552 4789 4798 48448 

EX1121 017330 4885 49488 

ExiT22 017500 49854 

Ex1T3 007420 3624 36378 

EX1T4 010006 3665 3715S@ 

EXITS 010206 3745 3757 37608 

EXIT6 010452 3788 3795 38108 

ExX117 011032 3839 3883 3885" 

ExT1l = 000001 17904 

EXT10 = 000010 17934 

ExT2 = 000002 17914 

ExT20 = 000020 17944 

EXT4 = 000004 17928 

EXT4O = 000040 17954 

FC 001510 20708 3544 3582 3596 3625 3670 3680 3713 3746 3758 3789 3842 3843 
3850 3940 3941 3942 4039 4097 4098 4107 4165 4272 4385 4483 4568 
4640 4792 4888 4980 7215 7233 

FEN = 000200 18164 

FER = 000020 17354 

FILBUF 030022 4567 4638 68644 

FILRAN 031104 4894 71164 

FMT22 = 010000 18524 19168 3397 6606 

FS 001524 th 42 +4 3540 3579 3622 3663 3743 3786 4093 4094 4166 4641 4768 

FT 001516 20734 3508 3542 3580 3623 3664 3744 3787 3835 3884 3939 4095 4096 
4167 4569 4802 

fl = 000002 17034 

F2 = 000004 17044 

3 = 000010 17054 

F4 = 000020 17064 

F5 = 000040 17074 

GETADR 050660 3260 §6100224 

GETNUM 031634 7259 72814 10029 £10037 

GETREG= 000141 19094 

GETREQ 043036 8368 8589 8744 8780 8841 8893 8954 8969 9007 9014 92954 

GETSWR 031542 3265 72514 

GNS = teeeee 1508 5000 5006 5014 5031 5146 5163 5818 5819 5820 5821 5822 5824 
5826 5827 5828 5829 5830 7255 7335 7368 7527 7633 

GO = 000001 1702@ 

GRv = 000010 1715@ 

GTSWR = 104406 3254 58244 

GTTST1 032130 7360 7365#@ 7414 7427 7438 7441 7467 7474 7483 7489 7498 7515 

GTTST2 032214 73824 7478 

GTTST3 032556 7385 7389 7393 7397 7401 74608 

GTTST4 032560 7403 7424 7458 74614 

GTTST5 032670 7462 74848 

GT1ST6 032730 7486 7495 

GT.PRM 031772 3327 73314 

GT.PR1 031774 73324 = 8©=©7340 7341 7342 7343 7344 7350 7351 

GT.PR2 032124 73628 0 8=6—7377 7494 7503 7696 

HCE = 000200 17384 

HC] = 002000 18504 

HCRC = 000400 17398 

HT = 000011 1546# 5238 5279 

J AE = 062000 17414 


' 
| 
a ne ee ae a TE TT LT TT TT 


E 16 Slate ith 
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CZRJAD.P11 28-MAR-79 11:28 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0199 

ic 001514 20728 3587 3595 3629 3690 3712 3754 3755 3808 3943 4030 4035 4037 
4104 4108 6858 

1€ = 000100 16568 

Lf = =_ 000901 17318 

ILR == 000002 17320 

INCCYL 027746 4797 68364 

INCSK 007140 35854 

INCTRK 027716 4841 68198 

1OTVEC= 000026 16418 3189" 3190¢ 

IR = 000100 16079@ 

1SR 037544 3986 4227 4321 4420 4518 6640 8168 86684 

11 001522 20758 6821 

1TEM41 004546 30784 5130 

1XE = 004000 18208 1838" 

KIPARO= teeeee J 9985 

LA 037406 8399 86334 

LACNT 034562 80348 8641" 8642 8659¢ 

LC 001512 20718 3509 3545 3588 3590 3635 3691 3693 3702 3747 3756 3790 3843 
3848 4031 4033 4039 4105 4109 4298 4367 4465 4806 4904 4975 6836 

LOCMD §=025104 3395 62598 

Lf = 000012 1547# 1974# 5001 5032 5273 5279 7256 7336 9351 9355 9372 9391 9398 


9408 9416 9421 9428 9431 9438 9441 9447 9451 9453 9455 9934 9936 
9943 9952 9962 9965 10061 10063 


Co 
co 
Ww 
o 
oa 
co 
> 
ool 
N 
Mm 
mM 
ao 


LKS 001412 20344 6106 6138* 

LKV 001406 20338 3963 3964 6136" 61378 

LOADRV 050266 3239 99434 

LODFLT 024470 3326 3329 61514 

LODPRM 024726 3501 3535 3573 3616 3657 3737 3780 3830 3930 4087 4153 4257 4347 
4445 4559 4630 4759 4879 4968 62098 

LOP.CK 026324 6295 6330 6373 6420 6474 64918 

LPB 001422 20384 $070 

LPS 001420 20374 5069 6070 

LPTAVL 001230 1979# 5067 6067* 6071 

LP.Avt 024150 3262 60674 

LS 001526 20774 83541 4767 

LST = 002000 17224 

LT 001520 20744 83543 3882 6819 6822 6824 

MABOVE 044251 6783 94628" 

MBELOW 044222 6767 94584 

MCLK = 000002 17514 

MCPE = 020000 16614 

MCPEMX 034630 8093# 9033 9081 

MHS = 001000 18188 18368 

MINX = 000004 1752@ 

MNDLTA 034644 81094 8657 

MOH = 020000 17844 

MOL. = 010000 17244 

mPE == _- 0004600 16814 

MRD = 000020 17544 

MRHVEC 051057 10034 100634 

MRPCS1 051046 ot. 100614 

MSGAVG 044206 6788 9455a@ 


MSGBO1 045755 2829 96218 
MSGBO2 045705 2828 96148 
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CZRJAD.P11 28-MAR-79 11:28 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0200 | 

MSGB03 045635 2827 96078 

MSGB04 045615 2826 960484 

MSGBOS 045545 2825 95978 

MSGB06 045501 2824 959084 

MSGBO8 045457 2823 9584" 

MSGB09 045400 2822 95784 

MSGB10 045355 2821 95748 

MSGB11 045327 2820 95704 

MSGB12 045305 2819 95664 

MSGB13 045254 2818 95618 

MSGB14 045212 2817 9555 

MSGFCP 043156 2122 9341" 

MSGLCP 043162 2123 93424 

MSGMAX 044177 6772 94534 

MSGMIN 044170 6756 94518 

MSGNON 044315 6809 94698" 

MSGNUM 044300 6804 94664 

MSG.CS 043216 7257 93514 

MSG.EQ 043214 7559 7597 7638 93508 

MSG.FC 043150 2120 93398 

MSG.FS 043202 2128 9347# 

MSG.FT 0463171 2125 93448 

MSG.1C 043166 2124 93438 

MSG.1T 043177 2127 93464 

MSG.LC 043153 2121 93404 

MSG.LS 0435205 2129 9348" 

MSG.LT 043174 2126 93454 

MSG.PA 043210 7596 9349" 

MSG.R 043146 2119 9338" 

MSG.SP 044330 ets ag 3304 3410 5158 51/0 5197 5204 6763 6779 6800 7555 7595 
6 4714 

MSGOUS 044215 6760 6771 6776 6787 6799 9457# 

MSGIOA 043742 2385 94214 

MSG10B 044011 2386 94284 

MSGI1A 044026 2390 94314 

MSG11B 044074 2391 94384 

MSG12A 044111 2395 94414 

MSG12B 0446153 2396 94478 

MSG7 043710 2375 2380 9416# 

MSTCK = 000010 17534 

MwR = 000040 1755@ 

MXDLTA 034642 81064 8655 

mx = 001000 1682@ 

MXLACT 034640 81034 8642 

MXSTAL 001362 20218 3687 3709 

MXWNDW 034646 8112# 8460 

NBA = 100000 17868 

NnC1 001532 20798 3942 4030" 40351 4034 4042 

nC2 001534 20804 

NED = 910000 16854 

NEM = 004000 16848 

NHS = 002000 18198  1837@ 

NOCLOK 043561 3371 93988 

NOLOAD 050464 3246 9965@ 

NONE 043552 3351 9396" 


v|{NOOP = 000101 18920 





CZRJAD RPOG/5/6 MECHANICAL y READ/WRITE TEST 


CZRJAD.P11 11:2 
NOTPRS 0434357 3293 
NOTRP 04 3464 3291 
NOTSAF 043454 3301 
NOUSE 043317 3297 
ocy. = 1000 18714 
OFFSET= 000115 18984 
OFREV = 000200 18494 
OF 100 = 000004 18454 
OF 200 = 000010 184684 
OF25 = 000001 18434 
OF400 = 000020 18474 
CFSO = 000002 18448 
OF 800 = 000040 18488 
OPE = 020000 18798 
OP 1 = 020000 17448 
OPNFLG 001240 19824 
OPNPAT 033336 7554 
OPNPRA 033134 7541 
OPNTST 032762 7480 
OPNWDS 033460 76284 
OPN.CT 032766 75094 
OPN.N1 033672 7591 
OPN.N2 033676 7578 
OPN.KX1 033710 7592 
OPN.X2 033714 7583 
OPN.1 032772 75118 
OPN.2 033014 7510 
OPT 035742 8330 
oR = 000200 16804 
PACK = 000123 19014 
PAR = 000010 173484 
PAT 001530 20784 
PAT.PT 003044 24008 
PATO 003104 2400 
PATI 003144 2401 
PAT10 003604 2410 
PATI? 003644 2411 
PATI2 003704 2412 
PAT13 003744 2413 
PATI4 004004 2414 
PATI1S 004044 2415 
PAT2 003204 2402 
PAT$3 003244 2403 
PATS 003304 2404 
PATS 003344 2405 
PATO 003404 2406 
PAT7 003444 2407 
PATB 003504 2408 
PAT9 003544 2409 
PGE = 902000 16834 
PGM = 001000 17214 
PIP = 020000 1725@ 
PIRQ = 177772 15534 
PIRQVE= 000240 16474 
PKB 001402 20314 
PK( 001404 20324 


93808 


73818 7470¢ 
7604 7613 

7550 7605 

7491 7493 

7512 7516 

76854 

7673 76864" 
76898 

7677 76908 
7688 

75164 

8699 8859 

7034 7077 

6165 7629 

6164 

6167 

41948 427Re 
6708 6709 


MACY11 30A(1052) 
CROSS REFERENCE TABLE <= USER SYMBOLS 


8899 


7678 


G 16 
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748) 7490 7492 7499 
7620 

7626 

7502 75078 

7529 

43842 44664 44822 61288 
6715 6716 6720 6725 


7501 7523 


SEQ 0201 


— | 
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PKCS 001400 20308 4181" 46184 6196 6198 4212 42818 4283 64306¢ 6369¢ 4371¢ 4387¢ 4389¢ 
4405* 44667* 64469 44685 646872" 6503" 6100 6129" 6591« 

PKV 001374 20294 3960 3961 4178* 46276 6364* 4662¢ 6126" 61278 6588 6589" 6594e 

PLU =_- =_:- 020000 18224 1839” 

POPQUE 043060 379 8430 8545 8853 93108 

PRM 001504 20684 6218 6222* 6235* 6238 7537 7546 7701 

PRALMAT 001606 2105@ 3871 4004 4605 4770 4781 6171* 6172¢ 6175* 61768 6192 6194 6854 
6872 6951 7117 7203 7553 7586 

PRMMSG 001636 21198 7556 

PRMPT 001536 20834 617 6217 7535 7702 

PRMO 002330 2083 21884 6159 

PRAI 002344 2084 21968 

PRM10 002544 2091 22748 

PRM11 002564 2092 22848 

PRM12 002606 2093 22954 

PRM13 002622 2094 23034 

PRM14 002636 2095 231la 

PRM15 002652 2096 23198 

PRM16 002666 2097 23278 

PRM17 002700 2098 23348 

PRM2 002372 2085 22094 

PRM20 002712 2099 23418 

PRM21 002744 2100 23564 

PRM22 02760 2101 23644 

PRM3 002414 2086 22204 

PRMG 002436 2087 22318 

PRMS 002460 2088 22428 

PRM6 002502 2089 22534 

PRM7 002524 2090 22648 

PRO = 000000 15704@ 

PR1 = 000040 15714 

PR2 = 000100 1572a 

PR3 == 000140 15734 

PRG == 000200 1574@ 

PRS = 000240 1575a@ 

PRO = 000300 1576 

PR7 = 000340 15778 3273 3956 3978 

PS = 177776 15504 1551 3263* 32738 3318¢ 3956 3973« 3978 40258 42138 4307* 44068 45048 
te 6587* 6595* 6639« 8151 8152" B1B1* R1898 8302 8303s 8356" 8466 84iSe 

648« 

PSEL = 002000 16604 

PSUs =: 000001 18654 

PSW = 177776 15514 

PTRNIS 002742 23538 

PWRVEC= 000024 16424 

OCNT 042372 91764 9235 92598 9274 9276* 9296 9310* 

QDRvVO 042464 9187 9198 9207 92198 

QDRvV1 042504 9188 9199 9208 92208 

QDRV2 042524 9189 9200 9209 92214 

QDRV3 942544 9190 9201 9210 92228 

QDRVS 042564 9191 9202 9211 92238 

ODRVS 042604 9192 9203 9212 92248 

QDRV6 042624 9193 9204 9213 92258 

ODRV7 042644 9194 9205 9214 92268 

QINPT 042402 91874 9261 9278 9279« 9280 9282" 


QOUTPT 042422 9198# 9261" 9299 9312 93132 9314 935168 





"nonow 


042442 


041630 
041652 


104413 


006216 
000010 
001370 
001366 
000004 
034632 


000016 


000000 


000010 


090006 


000022 
000012 


900026 


000042 


CZRJAD RPO4/5/6 ea) a AND READ/WRITE TEST 
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MACY11 30A(1052) 


1 16 
24-MAY-79 


CROSS REFERENCE TABLE -- USER SYMBOLS 


9246 
9314 
4934 


71318 
7138 


9282 


71978 
71798 


7370 


9775 
8493 
9088 


9777 
4921 
6262 


6620 
4291 


6897 
8416 


10045 


9316 


81198 
4284 


7641 


8635 
9142 


8649 


4414 


8864" 
8865 


13:59 PAGE 208 


869! 


4477 
7514 
9250 


8474 


8130" 


8212" 
8715 


4190* 
43198 
4510* 
8561 
9099 


4488 


88668 
9103 


8714 


4495 
7672 


9772 


8782 


45i2 
7676 


9779 


8792 


5206 
7695 


8940 


8488 


8371 
8836 


4205* 
4395* 
45168 
8605 

9162* 


8256 


SEQ 0203 


8807 


58308 
7718 


9035 


8387 
8952 


42198 
4396* 
65428 
86148 
9167 


837% 
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eee ee 





CZRJAD.P11 28-MAR-79 1 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0204 

RPINIT be te 3267 8150" 

RPLA = 000020 3862 3995 81244 8650 

RPMR = 000024 81268 

RPOF = 000032 81298 8253 8494 8498 8518 8522 

RPSN = 000030 81284 

RPT 001506 20694 3504 3538 3576 3619 3660 3740 3783 3833 3933 4090 4156 4260 
4350 4448 4562 4633 4762 4882 4971 7560 7593* 7598 7624¢ 7685*  7689¢ 

RPTMR 041102 6142 8907# 

RPVEC 034634 Hie 4 9 4179*® G227* 4277* 4321" 4365" 4420" 4463" 4518" 6640" 80998 8167 

RPwWC = 000002 4014* 81178 

RP.REG 004204 2707 2731 2755 2779 27958 3413 6324 6326 6367 6369 6423 6851 9794 
9801 9804 9808 9811 9814 9818 9820 9824 9826 

RPO4 035450 6276 6307 6350 6397 6429 6448 6454 6647 83028 

RPOGB 043502 3305 9388" 

RPCS 043507 3308 93898 

RP06 043514 3311 93908 

RSTRT1 006162 3368 3370 3372 §=3382 

RSTRT2 006206 3377" =§=3383 

RTC == 000117 18998 

SAVCSW 001222 1976# 3321 3325* 72628 

SAVEFG 034572 3268* 80498 8547 8696 8855 

SAVREG= 104412 4187 4201 4216 4286 4310 4374 4392 4409 4472 4490 4507 5115 58298 
5864 6680 6864 6883 6907 6998 7030 7331 7507 7627 7700 8150 8305 
8365 8579 8669 8910 9128 9234 

SC 037750 8675 8700 8702 8708 87120 

SCTRWC= 177400 1915# 4592 4642 4906 

$c1_ = 000100 1796# 

$€10 = 001000 17994 

$c11 040602 8752 8789 88464 

$Cl2 040672 8746 8757 88614 

$¢13 040742 8736 8739 88728 

$sc2. = 000200 17978 

$€20 = 002000 18004 

$c3 040020 87278 8731 

$C4 040024 87298 8760 8772 8776 8824 8838 8845 8360 89006 

$c5 040036 8728 8734e 

$C6 040236 8756 87778 

SCOA 040346 8754 88014 

$c7 040474 8791 8804 8806 8816 88268 

$¢c8 040552 8768 8784 8794 8800 8809 8837 88398 8871 

SEARCH= 000131 19024 4182 4195 

SEC.DS 001272 A 4h 6316* 6359 6408* 6438% 6464" 6614" 6656" 7089" 9784 9787 9789 

SEC.RD 001266 19944 6613* 9787 

SEEK = 000105 18944 3836 3937 3972 4280 4368 4386 4466 4484 4976 4981 6264 6265 

SEEKFG 034574 3339" 3342* 8057# 8155 8397 

SEKCNT 001346 20154 4027 4029* 4038+ 

SEKTMR 001544 20144 3967" 4055* 

SELDRV= 000145 19114 

SERIAL 043671 3411 94128 

SETBUF 030476 3947 4815 6998# 

SETFOR= 000145 1910# 3401 3403 3506 3836 3937 4976 4981 

SETVEC 005434 32678 

SET.1E 042520 8184 8215 8340 8414 8619 8721 91608 

SK] = 040000 1870# 1880# 


CZRJAD.P11 


CZRJAD RPOG/5/6 aenete ike — READ/WRITE TEST 


SLASH 

SRCHWT 
SRCHOO 
SRTDRV 
SRTINT 
SRVCLK 
STACK 


STALL 

STALLO 
STALL1 
STALL2 
STALL3 
START 

START 


SVADR 


043364 
034546 
027006 
005706 
005402 
024456 
001100 


026502 
001336 


042202 


001260 
001140 


000176 
000001 


000200 


93718 
8472* 
4356 


8850 
4454 


5467 


MACY11 30A(1052) 
CROSS REFERENCE TABLE -- USER SYMBOLS 


66388 


5550 


K 16 
24-MAY-79 


9016 


60934 


6745 


3592 3627 
4175 4271 
4673 4679 
4974 

6339 6382 
3689* 3701 
90208 

494e 

4312 4376 
8796 8814 
4811 4816 
5564* 5697 
7162 7251 


15:59 PAGE 


210 


4394 
8857 


4822 
5715 


4411 
8895 


4830 
5722 


3695 
4566 
4825 


3709 


4474 
8956 


+832 
6425 


3749 
4574 
4835 


37118 


4492 
9019 


4838 
6491 


SEQ 0205 


3793 
4579 
4897 


4509 
91288 


5065 
6623 
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CZRJAD.P11 

sw08 = 000400 
swO9 = 001000 
Swi = 000002 
Swi0 = 002000 
SW11 = 004000 
Swi2 = 010000 
Sw13 = 020000 
Sw1i4 = 040000 
SwiS = 100000 
Sw2 = 000004 
Sw3 = = 000010 
SW4 == 000020 
SwS5 == 000040 
SWw6 = =: 000100 
Sw7 == 000200 
Sw8 = 000400 
Sw9 = =-_—«001000 
SYSTAT 043370 
TAP = 040000 
TBITVE= 000014 
if) 37610 
TOF = 000040 
TESTING 043647 
TESTO 006614 
TESTI 006772 
TESTIO 011242 
TESTI1 012300 
TEST12 012546 
TEST13 013242 
TEST14 013706 
TESTIS 014424 
TEST16 015112 
TESTI17 015510 
TEST2 007120 
TEST20 016236 
TEST21 017024 
TEST22 017420 
TESTS 007336 
TEST4 007546 
TESTS 010120 
TEST6 010320 
TEST? 010576 
TICKMS 001240 
TICKUS 001250 
TIMER 034576 
TIM.ON 001314 
TIM.PT 001332 
TIM.UP 001276 
TITLE 050202 
TKVEC = 000060 
Ths 001416 
TPS 001414 
TPVEC = 000064 
TRAPVE= 000034 
TRCKWC 001352 


3340 5065 
6982 7158 


6380 6478 


6623 


4041 4054 


4908 4909" 


6119" 6141 


8275* 8409+ 
9006* 9012+ 


6723 6725+ 
6687" 6702 


4599 4889 


CROSS REFERENCE TABLE -- USER SYMBOLS 


8552* 8598 8685" 8778" 8822s 


67268 
6751 


6173* 6i77e 


8873¢ 


~ $8808 


a913 


SEQ 0206 


By1Se 


———$—§ —————- —— -y 
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in 003024 23908 4359 4422 
12 003034 23958 4457 4520 


TRE = 040000 16628 
TRK.DS 001274 19978 6284e 6315" 6358 6407" 6437* 6463" 6615" 6655" 6974* 7088" 9784 9787 
9789 9797 9815 9821 
TRK.RD 001264 1993@ 6612" 9787 
TRK1 = 004000 18014 
TRK1O = 040000 18048 
TRK2 = 010000 18024 | 
TRK20 = 100000 18054 
TRK4 = 020000 18034 | 
TRNSWT 034544 4018* 79958 8431" 8576" 8586 8603" 8612" 8687 8688" 8951 8966 8979« 
TRIVEC= 000014 16394 
TSTINMS 001234 19814 3369 3496 3530 3568 3611 3652 3732 3775 3825 3925 4082 4148 | 
4252 4342 4440 4554 4625 4754 4874 4963 6156" 6157¢ 7358 7359 7378 
7379* 73842 7388 7392 7396* 74008 7422 74538 7463 7465 
TSTPGM 035446 3162* 3165" 3168* 3171e 3175e 3178 3228 3231 8241 82908 
TSTO 006470 34948 
TST} 006632 3498 35284 
TSTIO)3=—«.: 011034 3827 39234 
TSTIOA 011500 3988 3991" 
TST10B 012072 3965 40554 
TST11. =012140 3927 40808 
TST12. ©:012360 4084 4146# 6154 
TST13 =—-013116 4150 4160 462508 4258 
TST14 ©013562 4254 4264 43408 4348 
TST15 014300 4344 4354 44388 4446 
TST1160»=—6. 0015016 4442 4452 4552a 
TST17. 015414 4556 46234 
TST2 007010 3532 35664 
TST20 016034 4627 4752m 
TST21 016554 4756 48720 
TST22 017332 4876 49614 
TST3 007226 3570 3609" 
TST4 007422 3613 36508 
1ST5 010010 3654 37308 
1S16 010210 3734 37730 
1S17 010454 3777 38234 
TuF = 000100 1815a@ 18334 
TWOMS 026564 4294 4383 4401 4481 4499 65868 
TYPDS = 104405 5187 58220 
TYPE = 104401 3230 3233 3239 3246 3261 3275 3276 3283 3284 291 3293 3297 3299 
3301 3303 3304 3312 3314 3346 3351 3363 3371 3405 3410 3411 3426 
3429 4998 5004 5012 5029 5033 5076 5084 5134 5135 5144 5153 5154 
5158 5161 5167 5168 $177 5190 5194 5197 5199 §201 §204 5243 5340 
5416 5464 5476 5530 553} 5534 5545 $55 5566 5585 5633 5639 5644 
5648 5053 5654 5656 5659 5663 58188 5932 6752 6756 6760 6763 6767 
6771 6772 6776 6779 6783 6787 6788 6799 6800 6804 6809 7253 7282 
7286 7333 7366 7525 7534 7555 755? 7559 7563 7595 7596 759? 7600 
7631 7638 
TYPERR 020172 5083 51l4e@ 
TYPOC = 104402 $017 5183 5533 58198 7285 7599 7640 
TYPON = 1044604 58218 . 
TYPOS = 104403 3280 ©= 3358 «= 3407 = 5009 88208 = 7531 | 
TYPTIM 027370 4230 46234 4322 642) 4519 67448 
110 003014 2385#@ 4269 4323 | 


Eee 
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CZRJAD.P11 28-MAR-79 11:28 CROSS REFERENCE TABLE <= USER SYMBOLS SEQ 0208 
17A 002774 2375@ 394171 423) 
178 003004 23808 4174 4235 
ULDFLG 034552 s0cce 8210" 8312 8327 8509* 8572" 8604" 8742 8828 8830" 8846 8848" 895% 
@ 
UNLOAD= 000103 18934 
UNS = 040000 17458 
UNTMSG 043410 9375a 
UNTOFF 043416 299 93768 
UNTON 043427 3303 93788 
uPE = 02 16868 
USE 043242 3233 93554 
uS1 = 000001 16734 
uS2 = 000002 16748 
USS = =_: 000004 16754 
uwR = 000010 18678 
VERIFY 026644 6334 6377 66048 
vuF = 000002 18664 
vu30 = 010000 18214 
vv = 000100 17188 
wAO = 000002 18768 
WCE = 040000 16874 
WCEFLG 001334 20114 4791* 4828 6396* 6460+ 
wCF = 000040 17364 
wou = 000001 18094 1827# 
WLE = 004000 17428 
WRCKD = 000151 19034 4577 4598 4657 4680 4826 4929 4943 6421 6447 
WRCKHD= 000153 19044 
WRITE = 000161 19054 3938 4575 4591 4639 4674 4820 4891 4913 6427 
wR. = 004000 17234 
WRTHD = 000163 19064 
WRT.AD 042100 9084" 9094" 90974 9777 
WRT.RP 042010 8248 8252 8386 8440 8444 8448 8456 8465 8469 8480 8487 8497 
8521 8542 8557 8568 8766 8798 8835 90814 
WRT.R1 042074 9095#@ 9115 
WRT.R2 042164 9081* 91148 
WRT.R3 042172 9090 9101 9104 9110 9117# 
WRT.RS 042176 9106 91198 
WRT.RS 042200 9118 91208 
WRT.WD 042076 9082* 9086 9093* 9096# 9777 
wRU == 000400 18174 1835# 
wsu = =: 000004 18114 18298 
S$AUTOB 001134 1942@ 3256" 5523 5680 
SBDADR 001122 1937#@ 7081" 7146* 9792 
$BDDAT 001126 1939# 6970" 7083* 7148 9792 9799 
001210 19684 3220 5076 5103 5476 5673 
SCHARC 020774 §245* 5255* 5262 5271* 5276# 
$CKSWR 021750 55094 5826 
SCMTAG 001100 19254 3182 3183 3191 3197 3198 
$CM1 = 000006 19574 19584 19594 1960# 19618 1962# 1963# 
$CM2 = 000014 19574 19584 19594 1960# 1961# 1962# 19634 
$cMS = 000006 1955@ 1957 
$cm4 = 000003 19634 19648 19654 1966# 
SCNTLC 022662 5464 5545 56734 
SCNTLG 022674 5530 5675# 
SCNTLU 022667 5555 5648 5674a 
SCRLF 001215 1970# 3261 3275 3314 3429 5084 5103 5134 $153 5167 $177 5194 
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5244 5279 5566 5653 5673 7534 

SOBLK 021442 5382 5416 54248 

$0B2D0 023372 5845 58648 

SDECVL 023552 5866 59128 

SOlV 023730 3851 4048 6000" 6792 

SDOAGN 017742 5025 5035 50414 

SOTBL 021432 5385 54208 

SENDAD 017732 1518 5037# 

SENDCT 017664 3347* 3356* 3366 50278 

SENULL 017746 5033 50448 

SEOP 017502 3355 3396 4965 4997# 6498 10059 

SEOPCT 017656 3366* 50244 5028 10058* 

SERFLG 001103 19284 5071" 5103 5687 5711 5713 5719* 5740 6475 6955 6986 7101 7160 

SERMAX 001115 19348 3199% 3430" 3505* 3539" 3577* 3620" 3661" 3741" 3784" 3834" 3934" 40918 
4157# 4261% 43512 446469% 4563" 4634" 47635" 4883" 4972" 5713 5735* 5740 

SERROR 017752 3191 50634 

SERRPC 001116 1935#@ 5078 5079* 5080 5105 9771 9772 9775 9777 9779 9782 9783 9784 
9789 9794 9797 9801 9806 9808 9811 9815 9821 

SERRTB 004306 28448 5130 5131 

SERTTL 001112 19324 5016 5018* 5077* 5103 

SESCAP 001206 19674 =3198* 4169" 4270" 4360* 4458" 5093 5095 5103 5734* 6275* 6282*  6306* 


6313* 6349" 6356" 6395" 6405" 6428% 6435* 6461" 6494" 6617" 6622" 6646"  6653* 
6975* 6980* 7091* 7097* 7144* 8719 8770 8774 9051 9111 9320 9329 9330¢ 


9332* 
SFILLC 001156 19534 5248 5279 
SFILLS 001155 19524 5279 
SGDADR 001120 1936# 7082* 7147" 9792 
SGDDAT 001124 19384 7084" 7149" 9792 
$GET42 017722 5034a 
S$GTSWR 022040 55318 5824 
$HD = 000000 1459 
SHINUM 023724 3195* 3846 4044 4886* 5954 5962 5967* 5972# 7131 7137* 87140" 7184 7200 
SICNT 001104 1929# = 3264" 5726* 5727 5729* 5739 
SINTAG 001135 19434 5528* 5547 5567 5680 
SITEMB 001114 19334 5080* 5103 5123 
SLF 001216 19714 5103 5279 5663 5673 
SLONUM 023726 3196* 4887* 5953 5960 5966* 5973# 6565 7132 7136" 8 7139* 7183 7198 7199 
SLPADR 001106 1930# 3200* 3511* 3547* 3578 3621" 3662" 3742" 3785" 3840" 3935" 4092" 4161" 
4265 4355* 4453% 4565" 4636" 4764* 4884 4907* 4973" S717* 5732" $737 5739 
SLPERR 001110 1931# 3201" 3502" 3536* 3574% 3583* 3591" 3617* 3626* 3630" 3658" 3672" 3694+ 


5092 5717 5733* 5739 6493 6625 

SLSTAD 050656 3244 10004* 10008# 

SMAIL = #eeeee 1) 3218 3252 5086 5232 5732 

SMNEW 022712 5534 56788 

SMSWR 022701 5531 5676" 

SMXCNT 023154 5730 57398 

SNULL_ 001154 19514 5250 5279 

$NWTST= 000001 3485# 3487 35178 3519 3553#@ 3555 36008 3602 36398 3641 3717#@ 3719 37628 
3764 3812¢ 3814 3888" 3890 4067# 4069 41348 4136 42398 4241 4327# 4329 
44258 4427 4539# = 4541 4609# 4611 4690# 4692 4847# 4849 49528 4954 

SOCNT 021222 5312" 5341" 53548 

SOMODE 021224 5307* 5311" 5316 5319* 5330" 53568 

SOVER 023140 5698 5718 5728 5736# 
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SPASS 0011 1926# 5021* 5022* 5044 5724 5740 
SQUES 001214 19694 5103 79 5585 5656 5673 
0236 3845 4043 59498 6564 7182 7197 
SROCHR 022312 55984 5827 
SRODEC= eeeeee YJ 5829 
SROLIN 022402 56214 5828 
SROOCT= eeeeee 5829 
SROSZ = 000024 56144 
SREGAD 001160 1955#@ 3218 
SREGO 001162 1957#@ 8 5117* 9784 9789 9797 9806 9808 9811 9815 9821 
SREG1 001164 19584 5118* 9772 9779 9799 
SREG2 001166 1959# 5119" 9783 
SREGS 001170 19604 5120" 9771 9772 
SREGG 001172 19614 5i21* 9792 9799 
SREGS 001174 19624 8 5122* 9779 
SRESRE 023214 57748 5830 
SRTINAD 017744 50434 
SR2A = eeeeee YJ 5831 
SSAVRE 023156 57584 5829 
$SB2D 023336 58434 6758 6765 6769 6774 6781 6785 6797 6802 7561 7636 
SSCOPE 022724 3189 56954 
SSETUP= 000147 31618 3188 3189 3191 3193 3195 3197 3198 3200 3249 5019 5064 5089 
5097 5468 5473 5474 5504 5680 5696 
$SI1ZE 050562 3243 9987" 
$STUP = 177777 31618 
SSUPRS 023566 59248 6759 6766 6770 6775 6782 6786 6798 6803 7562 7637 
$SVLAD 023112 5706 57318 
$SvPC = 000200 15164 1521 
$swR = 167000 14494 1459 1487 1488 1489 1490 1491 1492 19184 1966 1967 1968 3197 
3198 3200 3201 3506 3540 3578 3621 3662 3742 3785 3835 3935 4092 


5739 

SSWRMK= 000000 5$92 

STIMES 001204 19664 3197" 3504" 3538*  3576* 3619* 3660* 3740" 3783" 3833*  3933* 4090" 4156* 
4260* 4350* 44468 4562" 4633" 4762" 4882" 4971" 5020" 5720* 5727 5730* 5759 

$TKB 001146 19484 5429 5449 5460 5485 5513 5540 

STKCNT 021452 54308 5444" 5474 5491* 5605 5607+ 

STKINT 021462 3248 54448 5465 5526 

STKQEN= 021462 54348 5499 5610 

STKQIN 021454 54318 5445" 5446 5497* 5498* 5499 5501* 

$TKQO0U 021456 5432# 5446* 5608 5609* 5610 5612¢ 

$TKQSR 021460 54334 5445 5501 5612 

$TKS 001144 1947# 5429 5450* 5481" 5483 5489* 5511 5527" 5537 5549* 5569* 

STKSRV 021532 5447 54608 

STMPO §8=©001176 ie Ab 9775 9777 9779 9784 9789 9794 9797 9801 9806 9808 

$TMP1 001200 19648 

$TMP2 001202 1965# 

$1N = 000025 1449# 1459 3485 3093 3496 3505 3506# 3517 3528 3530 3539 35408 
3566 3568 5577 5784 00 609 3611 3620 36214 3639 3650 3652 
36624 3717 3730 3732 3741 3742# 3762 3773 3775 3784 37858 3812 

3854 3835¢ 3888 3923 392 3934 3935¢@ 4067 4080 4082 4091 

4134 4146 4148 4157 4158# 4239 4250 4252 4261 4262# 4327 4340 
4351 43528 4425 4438 4440 4449 4450# 4539 4552 4554 4565 45648 
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STNPWR 023502 
STPB 001152 
STPFLG 001157 
STPS 

STRAP 023252 
STRAP2 0235274 
STRP = 000014 


STRPAD 023506 
STSTNM 001102 


STTYIN 022636 


= 051120 


28-MAR-79 


U 


46358 
4963 


5101 
5100* 


4690 
4972 


5268* 
5266 


15198 
3694 
4655 
4945 
5672a 
92258 


— 1 
24-MAY-79 


4752 
49738 
5279 
5279 


56728 


5571 


4754 
7413 


4763 
7437 


5825a 


36148 
4089 


19248 
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47648 
7512 


4847 


4872 


58288 


3659 
4255* 
4881 


51474 
75284 


4874 


58298 


3735* 
4259 
4966* 


SEQ 0211 


4885 


58308 


3739 
4345¢ 
4970 


3583 
4578 
4896 
54248 
922Ca 
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7819 7830 7881 


3 
43278 44258 45398 


3812 4067 4239 
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5743 5789 5834 5853 5916 5940 5977 7900 7910 9981 10010 
ie (1 32028 


TYPBIN 1¢ §=616488 

TYPB2D 31578 6757 6764 6768 6773 6780 6784 6796 6801 7560 7635 

TYPDEC 1#@ §=16688 5185 

TYPEND 3157# 4998 

TYPNAM 1# = §«16488 

TYPNUM 1# 16488 

TYPOCS 1#@ =16484 3277 3357 3406 5008 7529 

TYPOCT 1# 16484 5016 5182 5532 7284 7598 7639 

TYPTXT 1#@ §=16484 4998 5004 5012 5029 5144 5161 7253 7333 7365 7525 7630 
SSCMRE 19184 1957 1958 1959 1960 1961 1962 

SSCMTIM 8619184 1963 1964 1965 

SSESCA 14 «16488 

SSNEWT 1#@ §16488 3485 3517 3553 - 3600 3639 3717 3762 3812 3888 4067 4134 4239 4327 


SSSET oder 5819 5820 5821 5822 5824 5826 5827 5828 5829 5830 


SSSKIP 16484 

-EQUAT 1#@ 14698 1538 
- HEADE 1# 14494 

KT la 

- SETUP 1#@ 146498 3161 
- SWRHI 1#@ 8144698 1483 
-SWRLO 14938 1494 1495 1496 1497 1498 1499 1500 
-SACTI 14 814498 = =1512 
.SAPTB 1a 

- SAPTH la 

-SAPTY ia 

-SASTA la 

-SCATC 1#@ 14498 1502 
-SCMTA 1#@ 14498 1918 
-$DB2D 1#@ 144698 5851 
- $0820 \f 

-$D01V 1#@ 14498 5975 
- SEOP 18 14498 4989 
- SERRO 1#@ 1464698 5049 
- SERRT la 

- SMULT 1a 

- SPOWE la 

- SRAND 1# 1449# 5938 
- SRODE 1# 814498 

- $RDOC 1# 814498 

- SREAD 1#@ 14494 5426 
-$R2AZ ‘gs 

- SSAVE 1#@ 814698 = 5741 
.$SB2D 1#@ 144698 5832 
-$S820 lf 

. $SCOP 1#@ 14469% 5682 
$SIZE 1#@ = 1449% 9979 
SSUPR 1#@ 8 14649% 5914 
STRAP 1#@ 14498 5787 
-STYPB lf 

-STYPD 1#@ 14498 5358 
- STYPE 1#@ 1449% 5209 
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-S40CA ls 
-1170 iT 


- ABS. 051120 000 


ERRORS DETECTED: 0 


DSKZ:CZRJAD.BIN,DSKZ:CZRJAD.LST/CRF/SOL/NL: TOC :MD:MC:CND/LI:ME=CZRJAD.SML,CZRJAD.O10,CZRJAD.P11 
RUN-TIME: 77 108 7 SECONDS 

RUN-TIME RATIO: 429/194=2.2 

CORE USED: 52K (103 PAGES) 


